/[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.75 by rtoy, Thu Jan 27 14:45:58 2005 UTC revision 1.76 by rtoy, Mon May 23 15:38:20 2005 UTC
# Line 402  Line 402 
402           (supplied-meta   (getf initargs :metaclass unsupplied))           (supplied-meta   (getf initargs :metaclass unsupplied))
403           (supplied-supers (getf initargs :direct-superclasses unsupplied))           (supplied-supers (getf initargs :direct-superclasses unsupplied))
404           (meta (cond ((neq supplied-meta unsupplied)           (meta (cond ((neq supplied-meta unsupplied)
405                        (find-class supplied-meta))                        (if (classp supplied-meta)
406                              supplied-meta
407                              (find-class supplied-meta)))
408                       ((or (null class)                       ((or (null class)
409                            (forward-referenced-class-p class))                            (forward-referenced-class-p class))
410                        *the-class-standard-class*)                        *the-class-standard-class*)

Legend:
Removed from v.1.75  
changed lines
  Added in v.1.76

  ViewVC Help
Powered by ViewVC 1.1.5