From: Olof-Joachim Frahm Date: Sat, 18 May 2013 00:29:55 +0000 (+0200) Subject: Fix return value. X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=76c143954f14604733819396433bd4280a723428;p=jscl.git Fix return value. --- diff --git a/src/package.lisp b/src/package.lisp index 834a95a..b74fbaa 100644 --- a/src/package.lisp +++ b/src/package.lisp @@ -175,7 +175,7 @@ (defun find-all-symbols (string) (let (symbols) - (dolist (package *package-list*) + (dolist (package *package-list* symbols) (multiple-value-bind (symbol status) (find-symbol string package) (when status (pushnew symbol symbols :test #'eq))))))