Changeset 8033

Timestamp:

Jan 10, 2008, 12:16:22 AM (17 years ago)

Author:

Gary Byers

Message:

Ensure that %UPDATE-CPL always returns the CPL.

File:

• branches/working-0711/ccl/level-1/l1-clos.lisp (modified) (2 diffs)

branches/working-0711/ccl/level-1/l1-clos.lisp

@@ -548 +548 @@
       (setf (%class.cpl class) cpl)
       #|(force-cache-flushes class)|#)
-    (setf (%class.cpl class) cpl)))
+    (setf (%class.cpl class) cpl))
+  cpl)
 
 
@@ -2069 +2070 @@
           (flet ((generate-type-check (form type &optional spvar)
                    (if (or (null *typecheck-slots-in-optimized-make-instance*)
-                           (eq type t))
+                           (eq type t)
+                           (and (quoted-form-p type) (eq (cadr type) t)))
                      form
                      (if spvar