From 76c143954f14604733819396433bd4280a723428 Mon Sep 17 00:00:00 2001 From: Olof-Joachim Frahm Date: Sat, 18 May 2013 02:29:55 +0200 Subject: [PATCH] Fix return value. --- src/package.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)))))) -- 1.7.10.4