Changeset 7888

Timestamp:

Dec 12, 2007, 2:07:24 AM (17 years ago)

Author:

Gary Byers

Message:

Define STANDARD-INSTANCE-P (which is inlined) before its first use.

File:

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

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

@@ -1248 +1248 @@
   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 +1435 @@
 
 
-(eval-when (:compile-toplevel :execute)
-(declaim (inline standard-instance-p))
-)
-
-
-
-
-(defun standard-instance-p (i)
-  (eq (typecode i) target::subtag-instance))