Ignore:
Timestamp:
Oct 7, 2015, 4:33:17 AM (6 years ago)
Author:
gb
Message:

handle LOAD-TIME-VALUE differently.
In the COMPILE (EVAL) case, wrap the literal (immediate) in new acode.
make ACODE-CONSTANT-P recognize the COMPILE-FILE case, and return NIl,NIL
Fixes ticket:1317 in the trunk

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/nxenv.lisp

    r16563 r16611  
    333333     (%double-float*-2   #.(logior operator-single-valued-mask operator-side-effect-free-mask operator-acode-subforms-mask) double-float)
    334334     (%double-float/-2   #.(logior operator-single-valued-mask operator-side-effect-free-mask operator-acode-subforms-mask) double-float)
    335      ()
     335     (load-time-value  #.(logior operator-single-valued-mask operator-side-effect-free-mask operator-acode-subforms-mask) t)
    336336     ()
    337337     ()
Note: See TracChangeset for help on using the changeset viewer.