From e360d9000cf63b2cfbfa9d763dd996180e1903f1 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Mon, 26 Dec 2011 10:03:38 +0100 Subject: [PATCH] Coerce to string before calling FIND-SYMBOL. --- src/lsp/packlib.lsp | 17 ++++++++--------- 1 file changed, 8 insertions(+), 9 deletions(-) diff --git a/src/lsp/packlib.lsp b/src/lsp/packlib.lsp index a94415d2d..40e201d54 100644 --- a/src/lsp/packlib.lsp +++ b/src/lsp/packlib.lsp @@ -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))