Changeset 11808


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/compile-file.lisp

    r11783 r11808  
    259259                (return-from process-toplevel-form))
    260260
    261               (when compile-time-too
    262                 (eval form))
    263 
    264261              (cond ((eq operator 'QUOTE)
    265262;;                      (setf form (precompile-form form nil))
     263                     (when compile-time-too
     264                       (eval form))
    266265                     (return-from process-toplevel-form)
    267266                     )
     
    283282                       (dump-form form stream))
    284283                     (%stream-terpri stream)
     284                     (when compile-time-too
     285                       (eval form))
    285286                     (return-from process-toplevel-form))
    286287                    ((and (eq operator '%SET-FDEFINITION)
     
    310311  (when (consp form)
    311312    (dump-form form stream)
    312     (%stream-terpri stream)))
     313    (%stream-terpri stream))
     314  (when compile-time-too
     315    (eval form)))
    313316
    314317(declaim (ftype (function (t) t) convert-ensure-method))
Note: See TracChangeset for help on using the changeset viewer.