/[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.34 by pmai, Sat Sep 7 13:28:46 2002 UTC revision 1.35 by pmai, Sat Oct 19 14:32:44 2002 UTC
# Line 480  Line 480 
480                  (push (cons (slot-definition-name dslotd)                  (push (cons (slot-definition-name dslotd)
481                              (if initfunction                              (if initfunction
482                                  (funcall initfunction)                                  (funcall initfunction)
483                                  *slot-unbound*))                                  +slot-unbound+))
484                        collected))))))                        collected))))))
485    (setq predicate-name (if predicate-name-p    (setq predicate-name (if predicate-name-p
486                             (setf (slot-value class 'predicate-name)                             (setf (slot-value class 'predicate-name)
# Line 555  Line 555 
555                                        (:constructor ,constructor ()))                                        (:constructor ,constructor ()))
556                             ,@(mapcar (lambda (slot)                             ,@(mapcar (lambda (slot)
557                                         `(,(slot-definition-name slot)                                         `(,(slot-definition-name slot)
558                                           *slot-unbound*))                                           +slot-unbound+))
559                                       direct-slots)))                                       direct-slots)))
560               (reader-names (mapcar (lambda (slotd)               (reader-names (mapcar (lambda (slotd)
561                                       (intern (format nil "~A~A reader" conc-name                                       (intern (format nil "~A~A reader" conc-name
# Line 1184  Line 1184 
1184                        (instance-ref oslots opos))                        (instance-ref oslots opos))
1185                else do                else do
1186                  (push name discarded)                  (push name discarded)
1187                  (unless (eq (instance-ref oslots opos) *slot-unbound*)                  (unless (eq (instance-ref oslots opos) +slot-unbound+)
1188                    (setf (getf plist name)                    (setf (getf plist name)
1189                          (instance-ref oslots opos))))                          (instance-ref oslots opos))))
1190          ;;          ;;
# Line 1196  Line 1196 
1196                  (setf (instance-ref nslots npos) val)                  (setf (instance-ref nslots npos) val)
1197                else do                else do
1198                  (push name discarded)                  (push name discarded)
1199                  (unless (eq val *slot-unbound*)                  (unless (eq val +slot-unbound+)
1200                    (setf (getf plist name) val)))                    (setf (getf plist name) val)))
1201          ;;          ;;
1202          ;; Go through all the new local slots to compute the added slots.          ;; Go through all the new local slots to compute the added slots.

Legend:
Removed from v.1.34  
changed lines
  Added in v.1.35

  ViewVC Help
Powered by ViewVC 1.1.5