Changeset 7992


Ignore:
Timestamp:
Jan 3, 2008, 4:23:15 AM (12 years ago)
Author:
gb
Message:

Default *TYPECHECK-SLOTS-IN-OPTIMIZED-MAKE-INSTANCE* to T.

In the FLETed function GENERATE-TYPE-CHECK inside
MAKE-INSTANTIATE-LAMBDA-FOR-CLASS-CELL, use the initarg value (which
may well be something other than (%SLOT-UNBOUND-MARKER)) if no
initarg was supplied in the call. D'oh.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/l1-clos.lisp

    r7946 r7992  
    20362036        (values nil nil)))))
    20372037
    2038 (defparameter *typecheck-slots-in-optimized-make-instance* nil)
    2039 
    2040 
     2038(defparameter *typecheck-slots-in-optimized-make-instance* t)
    20412039
    20422040
     
    20662064                  (forms))
    20672065          (flet ((generate-type-check (form type &optional spvar)
    2068                    (if (null *typecheck-slots-in-optimized-make-instance*)
     2066                   (if (or (null *typecheck-slots-in-optimized-make-instance*)
     2067                           (eq form t))
    20692068                     form
    20702069                     (if spvar
    20712070                       `(if ,spvar
    20722071                         (require-type ,form ',type)
    2073                          (%slot-unbound-marker))
     2072                         ,form)
    20742073                       `(require-type ,form ',type)))))
    20752074            (dolist (slot slotds)
Note: See TracChangeset for help on using the changeset viewer.