/[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.66 by gerd, Tue May 20 18:39:36 2003 UTC revision 1.67 by gerd, Sun May 25 14:33:49 2003 UTC
# Line 1131  Line 1131 
1131  (defmethod compute-effective-slot-definition-initargs :around  (defmethod compute-effective-slot-definition-initargs :around
1132      ((class structure-class) direct-slotds)      ((class structure-class) direct-slotds)
1133    (let ((slotd (car direct-slotds)))    (let ((slotd (car direct-slotds)))
1134      (list* :defstruct-accessor-symbol (slot-definition-defstruct-accessor-symbol slotd)      (list* :defstruct-accessor-symbol
1135             :internal-reader-function (slot-definition-internal-reader-function slotd)             (slot-definition-defstruct-accessor-symbol slotd)
1136             :internal-writer-function (slot-definition-internal-writer-function slotd)             :internal-reader-function
1137               (slot-definition-internal-reader-function slotd)
1138               :internal-writer-function
1139               (slot-definition-internal-writer-function slotd)
1140             (call-next-method))))             (call-next-method))))
1141    
1142  ;;;  ;;;

Legend:
Removed from v.1.66  
changed lines
  Added in v.1.67

  ViewVC Help
Powered by ViewVC 1.1.5