/[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.69 by gerd, Tue Jun 10 09:20:43 2003 UTC revision 1.70 by gerd, Sun Jun 15 14:06:26 2003 UTC
# Line 1644  Line 1644 
1644            (lambda (x)            (lambda (x)
1645              (handler-case              (handler-case
1646                  (conditions::condition-reader-function x slot-name)                  (conditions::condition-reader-function x slot-name)
1647                (error () (slot-unbound class x slot-name)))))                (error () (values (slot-unbound class x slot-name))))))
1648      (setf (slot-definition-writer-function slotd)      (setf (slot-definition-writer-function slotd)
1649            (lambda (v x)            (lambda (v x)
1650              (conditions::condition-writer-function x v slot-name)))              (conditions::condition-writer-function x v slot-name)))

Legend:
Removed from v.1.69  
changed lines
  Added in v.1.70

  ViewVC Help
Powered by ViewVC 1.1.5