Changeset 9575


Ignore:
Timestamp:
May 22, 2008, 8:06:04 AM (11 years ago)
Author:
gb
Message:

I don't -think- that the user can subclass FORWARD-REFERNCED-CLASS,
can they? Under the assumption that they can't:
FORWARD-REFERENCED-CLASS-P is true of direct instances of the
class FORWARD-REFERENCED-CLASS.

File:
1 edited

Legend:

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

    r9511 r9575  
    501501
    502502(defun forward-referenced-class-p (class)
    503   (typep class 'forward-referenced-class))
    504 
    505 ;;; This uses the primary class information to sort a class'es slots
     503  (and (%standard-instance-p class)
     504       (eq (%class-of-instance class) *forward-referenced-class-class*)))
     505
     506;;; This uses the primary class information to sort the slots of a class.
    506507(defun sort-effective-instance-slotds (slotds class cpl)
    507508  (let (primary-slotds
Note: See TracChangeset for help on using the changeset viewer.