X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=ecmalisp.lisp;h=20c68124f930d75f4e6268d27329b8f0a5fce5f7;hb=bfc35a4a1c2c0ba780ef686a166529534beb1be4;hp=867c2835ab3265fe1f3c89115c6cbbb4a0149d98;hpb=90d70940965a3c6348ef5046dcee2455bdbcda10;p=jscl.git

diff --git a/ecmalisp.lisp b/ecmalisp.lisp
index 867c283..20c6812 100644
--- a/ecmalisp.lisp
+++ b/ecmalisp.lisp
@@ -617,7 +617,7 @@
       (multiple-value-bind (symbol foundp)
           (find-symbol name package)
         (if foundp
-            symbol
+            (values symbol foundp)
             (let ((symbols (%package-symbols package)))
               (oget symbols name)
               (let ((symbol (make-symbol name)))
@@ -625,7 +625,8 @@
                 (when (eq package *keyword-package*)
                   (oset symbol "value" symbol)
                   (export (list symbol) package))
-                (oset symbols name symbol)))))))
+                (oset symbols name symbol)
+                (values symbol nil)))))))
 
   (defun symbol-package (symbol)
     (unless (symbolp symbol)