Ignore:
Timestamp:
08/23/11 10:43:03 (10 years ago)
Author:
Mark Evenson
Message:

Fix compiler for compile-time toplevel defstruct with print-object.

Fixes some problems which arose in compiling SBCL.

File:
1 edited

Legend:

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

    r13531 r13532  
    272272
    273273
     274    (when compile-time-too
     275      (let* ((copy-form (copy-tree form))
     276             ;; ### Ideally, the precompiler would leave the forms alone
     277             ;;  and copy them where required, instead of forcing us to
     278             ;;  do a deep copy in advance
     279             (precompiled-form (precompiler:precompile-form copy-form nil
     280                                                            *compile-file-environment*)))
     281        (eval precompiled-form)))
    274282    (convert-ensure-method form :function)
    275283    (convert-ensure-method form :fast-function))
    276   (let ((form (precompiler:precompile-form form nil
    277                                            *compile-file-environment*)))
    278     (when compile-time-too
    279       (eval form))
    280     form))
     284  (precompiler:precompile-form form nil *compile-file-environment*))
    281285
    282286(declaim (ftype (function (t t t) t) process-toplevel-defvar/defparameter))
Note: See TracChangeset for help on using the changeset viewer.