/[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.39 by gerd, Sat May 10 19:09:02 2003 UTC revision 1.40 by gerd, Sun May 11 11:30:35 2003 UTC
# Line 95  Line 95 
95                    *the-class-built-in-class*                    *the-class-built-in-class*
96                    *the-class-slot-class*                    *the-class-slot-class*
97                    *the-class-std-class*                    *the-class-std-class*
98                      *the-class-condition-class*
99                    *the-class-structure-class*                    *the-class-structure-class*
100                    *the-class-standard-class*                    *the-class-standard-class*
101                    *the-class-funcallable-standard-class*                    *the-class-funcallable-standard-class*
# Line 286  Line 287 
287    
288  (defvar *name->class->slotd-table* (make-hash-table))  (defvar *name->class->slotd-table* (make-hash-table))
289    
290    (defun slot-name->class-table (slot-name)
291      (or (gethash slot-name *name->class->slotd-table*)
292          (setf (gethash slot-name *name->class->slotd-table*)
293                (make-hash-table :test 'eq :size 5))))
294    
295  (defvar *standard-method-combination*)  (defvar *standard-method-combination*)
296    
297    
# Line 535  Line 541 
541      :initform nil      :initform nil
542      :initarg :from-defclass-p)))      :initarg :from-defclass-p)))
543    
544    (defclass condition (slot-object kernel:instance) ()
545      (:metaclass condition-class))
546    
547  (defclass condition-class (slot-class) ())  (defclass condition-class (slot-class) ())
548    
549  (defclass specializer-with-object (specializer) ())  (defclass specializer-with-object (specializer) ())
# Line 808  was inherited." Line 817  was inherited."
817      (standard-class standard-class-p)      (standard-class standard-class-p)
818      (funcallable-standard-class funcallable-standard-class-p)      (funcallable-standard-class funcallable-standard-class-p)
819      (structure-class structure-class-p)      (structure-class structure-class-p)
820        (condition-class condition-class-p)
821      (forward-referenced-class forward-referenced-class-p)      (forward-referenced-class forward-referenced-class-p)
822      (method method-p)      (method method-p)
823      (standard-method standard-method-p)      (standard-method standard-method-p)

Legend:
Removed from v.1.39  
changed lines
  Added in v.1.40

  ViewVC Help
Powered by ViewVC 1.1.5