/[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.34 by pmai, Sat Sep 7 13:28:46 2002 UTC revision 1.34.2.1 by pmai, Fri Oct 4 23:14:08 2002 UTC
# Line 1316  Line 1316 
1316  (defmethod class-default-initargs        ((class built-in-class)) ())  (defmethod class-default-initargs        ((class built-in-class)) ())
1317    
1318  (defmethod validate-superclass ((c class) (s built-in-class))  (defmethod validate-superclass ((c class) (s built-in-class))
1319    (or (eq s *the-class-t*) (eq s *the-class-stream*)))    (or (eq s *the-class-t*)
1320          (eq s *the-class-stream*)
1321          #+fundamental-types ; hmm...
1322          (eq s *the-class-package*)))
1323    
1324    
1325    

Legend:
Removed from v.1.34  
changed lines
  Added in v.1.34.2.1

  ViewVC Help
Powered by ViewVC 1.1.5