Changeset 7888


Ignore:
Timestamp:
Dec 12, 2007, 10:07:24 AM (13 years ago)
Author:
gb
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/l1-clos-boot.lisp

    r7746 r7888  
    12481248  name)
    12491249
     1250(eval-when (:compile-toplevel :execute)
     1251(declaim (inline standard-instance-p))
     1252)
     1253
     1254
     1255
     1256
     1257(defun standard-instance-p (i)
     1258  (eq (typecode i) target::subtag-instance))
     1259
    12501260(defun check-setf-find-class-protected-class (old-class new-class name)
    12511261  (when (and (standard-instance-p old-class)
     
    14251435
    14261436
    1427 (eval-when (:compile-toplevel :execute)
    1428 (declaim (inline standard-instance-p))
    1429 )
    1430 
    1431 
    1432 
    1433 
    1434 (defun standard-instance-p (i)
    1435   (eq (typecode i) target::subtag-instance))
    14361437
    14371438
Note: See TracChangeset for help on using the changeset viewer.