Index: /branches/working-0711/ccl/level-1/l1-clos.lisp
===================================================================
--- /branches/working-0711/ccl/level-1/l1-clos.lisp	(revision 8055)
+++ /branches/working-0711/ccl/level-1/l1-clos.lisp	(revision 8056)
@@ -2087,10 +2087,10 @@
                      (name (slot-definition-name slot))
                      (type (slot-definition-type slot)))
+                (when (consp location)
+                  (setq location-var (gensym "LOCATION"))
+                  (class-binds `(,location-var
+                                 (load-time-value
+                                  (slot-definition-location ',slot)))))
                 (when initfunction
-                  (when (consp location)
-                    (setq location-var (gensym "LOCATION"))
-                    (class-binds `(,location-var
-                                   (load-time-value
-                                    (slot-definition-location ',slot)))))
                   (setq initform
                         (if (self-evaluating-p initform)