/[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.10.1.1 by ram, Tue Jul 20 16:10:54 1993 UTC revision 1.10.1.2 by ram, Tue Aug 17 15:14:50 1993 UTC
# Line 357  Line 357 
357    (case (car type)    (case (car type)
358      ((not and or) `(,(car type) ,@(mapcar #'convert-to-system-type      ((not and or) `(,(car type) ,@(mapcar #'convert-to-system-type
359                                            (cdr type))))                                            (cdr type))))
360      #-cmu17      ((class class-eq) ; class-eq is impossible to do right
361      (class (class-name (cadr type))) ; it had better be a named class       #-cmu17 (class-name (cadr type))
362      #+cmu17       #+cmu17 (kernel:layout-class (class-wrapper (cadr type))))
     (class (kernel:layout-class (slot-value type 'wrapper)))  
     (class-eq (class-name (cadr type))) ; this one is impossible to do right  
363      (eql type)      (eql type)
364      (t (if (null (cdr type))      (t (if (null (cdr type))
365             (car type)             (car type)

Legend:
Removed from v.1.10.1.1  
changed lines
  Added in v.1.10.1.2

  ViewVC Help
Powered by ViewVC 1.1.5