From: Olof-Joachim Frahm <olof@macrolet.net>
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))))))