Changeset 8033


Ignore:
Timestamp:
Jan 10, 2008, 8:16:22 AM (12 years ago)
Author:
gb
Message:

Ensure that %UPDATE-CPL always returns the CPL.

File:
1 edited

Legend:

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

    r8028 r8033  
    548548      (setf (%class.cpl class) cpl)
    549549      #|(force-cache-flushes class)|#)
    550     (setf (%class.cpl class) cpl)))
     550    (setf (%class.cpl class) cpl))
     551  cpl)
    551552
    552553
     
    20692070          (flet ((generate-type-check (form type &optional spvar)
    20702071                   (if (or (null *typecheck-slots-in-optimized-make-instance*)
    2071                            (eq type t))
     2072                           (eq type t)
     2073                           (and (quoted-form-p type) (eq (cadr type) t)))
    20722074                     form
    20732075                     (if spvar
Note: See TracChangeset for help on using the changeset viewer.