Changeset 11810


Ignore:
Timestamp:
05/01/09 20:40:07 (15 years ago)
Author:
ehuelsmann
Message:

Fix file compilation with :output-file parameter
compiling code which uses a :compile-toplevel EVAL-WHEN
condition.

Found by: Stas Boukarev (stassats at gmail)

File:
1 edited

Legend:

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

    r11809 r11810  
    314314;;                      (setf form (precompile-form form nil))
    315315                     (note-toplevel-form form)
    316                      (setf form (convert-toplevel-form form))
     316                     (let ((new-form (convert-toplevel-form form)))
     317                       (when (consp new-form)
     318                         (dump-form new-form stream)
     319                         (%stream-terpri stream)))
     320                     (when compile-time-too
     321                       (eval form))
     322                     (return-from process-toplevel-form)
    317323                     )))))))
    318324  (when (consp form)
Note: See TracChangeset for help on using the changeset viewer.