Index: /branches/working-0711/ccl/level-1/l1-clos.lisp
===================================================================
--- /branches/working-0711/ccl/level-1/l1-clos.lisp	(revision 8032)
+++ /branches/working-0711/ccl/level-1/l1-clos.lisp	(revision 8033)
@@ -548,5 +548,6 @@
       (setf (%class.cpl class) cpl)
       #|(force-cache-flushes class)|#)
-    (setf (%class.cpl class) cpl)))
+    (setf (%class.cpl class) cpl))
+  cpl)
 
 
@@ -2069,5 +2070,6 @@
           (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