Changeset 10026


Ignore:
Timestamp:
Jul 14, 2008, 1:02:15 PM (11 years ago)
Author:
gb
Message:

Add a CHANGE-CLASS method on specializers (FUNCALLABLE-STANDARD-OBJECT
FUNCALABLE-STANDARD-CLASS).

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-clos-boot.lisp

    r9917 r10026  
    31093109  (%change-class instance new-class initargs))
    31103110
     3111(defmethod change-class ((instance funcallable-standard-object)
     3112                         (new-class funcallable-standard-class)
     3113                         &rest initargs &key &allow-other-keys)
     3114  (declare (dynamic-extent initargs))
     3115  (%change-class instance new-class initargs))
     3116 
    31113117
    31123118(defun %change-class (object new-class initargs)
Note: See TracChangeset for help on using the changeset viewer.