X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpackage.lisp;h=d3861e8b075d45501cb8416061e67f16e9f373f0;hb=74568bb8cdadfcb6bf5429976b92f3afb748b0c2;hp=b16e9bbdbf70f759755ba672d455cd92c85f4826;hpb=b3be08ae30043a26fbc29877b42dd45aa233b178;p=jscl.git

diff --git a/src/package.lisp b/src/package.lisp
index b16e9bb..d3861e8 100644
--- a/src/package.lisp
+++ b/src/package.lisp
@@ -84,11 +84,14 @@
           (if (in "package" symbol)
               (find-package-or-fail (oget symbol "package"))
               *common-lisp-package*))
-         (symbols (%package-symbols package)))
+         (symbols (%package-symbols package))
+         (exports (%package-external-symbols package)))
     (oset symbol "package" package)
+    (oset symbols (symbol-name symbol) symbol)
+    ;; Turn keywords self-evaluated and export them.
     (when (eq package *keyword-package*)
-      (oset symbol "value" symbol))
-    (oset symbols (symbol-name symbol) symbol)))
+      (oset symbol "value" symbol)
+      (oset exports (symbol-name symbol) symbol))))
 
 (defun find-symbol (name &optional (package *package*))
   (let* ((package (find-package-or-fail package))