mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-16 06:12:25 -08:00
Code Issues Projects Releases Packages Wiki Activity

Coerce to string before calling FIND-SYMBOL.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2011-12-26 10:03:38 +01:00
parent d8a74f6357
commit e360d9000c
1 changed files with 8 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

17
src/lsp/packlib.lsp
View file

@ -19,15 +19,14 @@
Returns a list of all symbols that have the specified print name.
STRING-DESIGNATOR may be a symbol, in which case the print name of the symbol
is used."
(when (symbolp string-or-symbol)
(setq string-or-symbol (symbol-name (the-symbol string-or-symbol))))
(mapcan #'(lambda (p)
(multiple-value-bind (s i)
(find-symbol string-or-symbol p)
(if (or (eq i :internal) (eq i :external))
(list s)
nil)))
(list-all-packages)))
(let ((symbol-name (string string-or-symbol)))
(mapcan #'(lambda (p)
(multiple-value-bind (s i)
(find-symbol symbol-name p)
(if (or (eq i :internal) (eq i :external))
(list s)
nil)))
(list-all-packages))))
(defun packages-iterator (packages options maybe-list)
(let ((all-symbols nil))