/[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.4 by ram, Mon Jun 1 18:39:00 1992 UTC revision 1.4.1.1 by ram, Mon Dec 14 12:58:29 1992 UTC
# Line 907  Line 907 
907                  allocp t))                  allocp t))
908          (setq initargs (append (slot-definition-initargs slotd) initargs))          (setq initargs (append (slot-definition-initargs slotd) initargs))
909          (let ((slotd-type (slot-definition-type slotd)))          (let ((slotd-type (slot-definition-type slotd)))
910            (setq type (cond ((null type)     slotd-type)            (setq type (cond ((eq type 't) slotd-type)
911                             ((*subtypep type slotd-type) type)                             ((*subtypep type slotd-type) type)
912                             (t `(and ,type ,slotd-type)))))))                             (t `(and ,type ,slotd-type)))))))
913      (list :name name      (list :name name

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.4.1.1

  ViewVC Help
Powered by ViewVC 1.1.5