Function: LOOKUP-NAMESPACE

Source

(defun lookup-namespace (ns env)
  (dolist (e env)
    (let ((nsurl (assoc ns e :test #'string=)))
      (when nsurl
        (return-from lookup-namespace (cdr nsurl))))))