Changeset 11102


Ignore:
Timestamp:
Oct 16, 2008, 11:24:39 AM (11 years ago)
Author:
gz
Message:

fcomp-compile-toplevel-forms was using the compiler-function-overflow hack to find forms that reference LOAD-TIME-VALUE and recompile them one at a time, for reasons that are lost in antiquity (or at least predate our svn history). I made it stop doing that, since it causes spurious dup definition warnings for non-toplevel defuns. If the original problem, whatever it may have been, comes up again, we can try to figure out another solution for it.
(A real compiler-function-overflow will still cause spurious dup definition warnings for non-toplevel defuns, but that's much less likely to happen in practice than load-time-value, which we now use all the time)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/lib/nfcomp.lisp

    r11101 r11102  
    964964    (let* ((forms (nreverse *fcomp-toplevel-forms*))
    965965           (*fcomp-stream-position* *fcomp-previous-position*)
    966            (lambda (if (null (cdr forms))
    967                      `(lambda () (progn ,@forms))
     966           (lambda (if T ;; (null (cdr forms))
     967                     `(lambda () ,@forms)
    968968                     `(lambda ()
    969969                        (macrolet ((load-time-value (value)
Note: See TracChangeset for help on using the changeset viewer.