Fix return value.

diff --git a/src/package.lisp b/src/package.lisp
index 834a95a..b74fbaa 100644 (file)
--- 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))))))