Index: /branches/working-0711/ccl/level-1/l1-clos-boot.lisp
===================================================================
--- /branches/working-0711/ccl/level-1/l1-clos-boot.lisp	(revision 7887)
+++ /branches/working-0711/ccl/level-1/l1-clos-boot.lisp	(revision 7888)
@@ -1248,4 +1248,14 @@
   name)
 
+(eval-when (:compile-toplevel :execute)
+(declaim (inline standard-instance-p))
+)
+
+
+
+
+(defun standard-instance-p (i)
+  (eq (typecode i) target::subtag-instance))
+
 (defun check-setf-find-class-protected-class (old-class new-class name)
   (when (and (standard-instance-p old-class)
@@ -1425,13 +1435,4 @@
 
 
-(eval-when (:compile-toplevel :execute)
-(declaim (inline standard-instance-p))
-)
-
-
-
-
-(defun standard-instance-p (i)
-  (eq (typecode i) target::subtag-instance))