- (if (in "package" symbol)
- (find-package-or-fail (oget symbol "package"))
- *common-lisp-package*))
- (symbols (%package-symbols *common-lisp-package*)))
+ (if (in "package" symbol)
+ (find-package-or-fail (oget symbol "package"))
+ *common-lisp-package*))
+ (symbols (%package-symbols package)))
(oset symbols (symbol-name symbol) symbol)))
(defun find-symbol (name &optional (package *package*))
(let* ((package (find-package-or-fail package))
(symbols (%package-symbols package)))
(if (in name symbols)
(oset symbols (symbol-name symbol) symbol)))
(defun find-symbol (name &optional (package *package*))
(let* ((package (find-package-or-fail package))
(symbols (%package-symbols package)))
(if (in name symbols)
(dolist (used (package-use-list package) (values nil nil))
(let ((exports (%package-external-symbols used)))
(when (in name exports)
(dolist (used (package-use-list package) (values nil nil))
(let ((exports (%package-external-symbols used)))
(when (in name exports)
(let ((package (symbol-package sexp)))
(if (eq package (find-package "KEYWORD"))
(concat "{name: \"" (escape-string (symbol-name sexp))
(let ((package (symbol-package sexp)))
(if (eq package (find-package "KEYWORD"))
(concat "{name: \"" (escape-string (symbol-name sexp))
(concat "{name: \"" (escape-string (symbol-name sexp)) "\"}")))
#+ecmalisp
(let ((package (symbol-package sexp)))
(concat "{name: \"" (escape-string (symbol-name sexp)) "\"}")))
#+ecmalisp
(let ((package (symbol-package sexp)))