Changeset 11808

Timestamp:

04/30/09 06:47:29 (14 years ago)

Author:

ehuelsmann

Message:

Fix exporting symbol in a different package than the current one.

Found by: Vladimir Korablin <vkorablin at gmail dot com>

File:

• trunk/abcl/src/org/armedbear/lisp/compile-file.lisp (modified) (3 diffs)

trunk/abcl/src/org/armedbear/lisp/compile-file.lisp

@@ -259 +259 @@
                 (return-from process-toplevel-form))
 
-              (when compile-time-too
-                (eval form))
-
               (cond ((eq operator 'QUOTE)
 ;;                      (setf form (precompile-form form nil))
+                     (when compile-time-too
+                       (eval form))
                      (return-from process-toplevel-form)
                      )
@@ -283 +282 @@
                        (dump-form form stream))
                      (%stream-terpri stream)
+                     (when compile-time-too
+                       (eval form))
                      (return-from process-toplevel-form))
                     ((and (eq operator '%SET-FDEFINITION)
@@ -310 +311 @@
   (when (consp form)
     (dump-form form stream)
-    (%stream-terpri stream)))
+    (%stream-terpri stream))
+  (when compile-time-too
+    (eval form)))
 
 (declaim (ftype (function (t) t) convert-ensure-method))