/[cmucl]/src/pcl/std-class.lisp
ViewVC logotype

Diff of /src/pcl/std-class.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.14 by dtc, Mon May 4 01:27:24 1998 UTC revision 1.15 by dtc, Fri Jun 5 02:53:54 1998 UTC
# Line 415  Line 415 
415    (if direct-superclasses-p    (if direct-superclasses-p
416        (progn        (progn
417          (setq direct-superclasses (or direct-superclasses          (setq direct-superclasses (or direct-superclasses
418                                        (list *the-class-standard-object*)))                                        (list *the-class-standard-object*)))
419          (dolist (superclass direct-superclasses)          (dolist (superclass direct-superclasses)
420            (unless (validate-superclass class superclass)            (unless (validate-superclass class superclass)
421              (error "The class ~S was specified as a~%super-class of the class ~S;~%~              (error "The class ~S was specified as a~%super-class of the class ~S;~%~
422                      but the meta-classes ~S and~%~S are incompatible.~%                      but the meta-classes ~S and~%~S are incompatible.~@
423                      Define a method for ~S to avoid this error."                      Define a method for ~S to avoid this error."
424                     superclass class (class-of superclass) (class-of class)                     superclass class (class-of superclass) (class-of class)
425                     'validate-superclass)))                     'validate-superclass)))
# Line 1256  Line 1256 
1256             'standard-class))             'standard-class))
1257    (change-class-internal instance new-class))    (change-class-internal instance new-class))
1258    
1259  (defmethod change-class ((instance standard-object)  (defmethod change-class ((instance funcallable-standard-object)
1260                           (new-class funcallable-standard-class))                           (new-class funcallable-standard-class))
1261    (unless (fsc-instance-p instance)    (unless (fsc-instance-p instance)
1262      (error "Can't change the class of ~S to ~S~@      (error "Can't change the class of ~S to ~S~@

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15

  ViewVC Help
Powered by ViewVC 1.1.5