/[cmucl]/src/pcl/defs.lisp
ViewVC logotype

Diff of /src/pcl/defs.lisp

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

revision 1.33.2.4 by gerd, Wed Mar 19 16:33:23 2003 UTC revision 1.33.2.5 by gerd, Thu Mar 20 23:41:00 2003 UTC
# Line 141  Line 141 
141                 (eql      (intern-eql-specializer (car args))))))                 (eql      (intern-eql-specializer (car args))))))
142          ((and (null args) (typep type 'kernel::class))          ((and (null args) (typep type 'kernel::class))
143           (or (kernel:%class-pcl-class type)           (or (kernel:%class-pcl-class type)
144               (find-structure-class (kernel:%class-name type))))               (ensure-non-standard-class (kernel:%class-name type))))
145          ((specializerp type) type)))          ((specializerp type) type)))
146    
147  ;;; interface  ;;; interface
# Line 541  Line 541 
541      :initform nil      :initform nil
542      :initarg :from-defclass-p)))      :initarg :from-defclass-p)))
543    
544    (defclass condition-class (pcl-class) ())
545    
546  (defclass specializer-with-object (specializer) ())  (defclass specializer-with-object (specializer) ())
547    

Legend:
Removed from v.1.33.2.4  
changed lines
  Added in v.1.33.2.5

  ViewVC Help
Powered by ViewVC 1.1.5