/[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.47 by gerd, Sun Mar 30 00:48:10 2003 UTC revision 1.48 by gerd, Sun Mar 30 21:17:03 2003 UTC
# Line 630  Line 630 
630                    ,@readers-init ,@writers-init)))                    ,@readers-init ,@writers-init)))
631          (unless (structure-type-p name) (eval defstruct-form))          (unless (structure-type-p name) (eval defstruct-form))
632          (mapc (lambda (dslotd reader-name writer-name)          (mapc (lambda (dslotd reader-name writer-name)
633                  (let* ((reader (gdefinition reader-name))                  (let* ((reader (when (fboundp reader-name)
634                                     (gdefinition reader-name)))
635                         (writer (when (fboundp writer-name)                         (writer (when (fboundp writer-name)
636                                   (gdefinition writer-name))))                                   (gdefinition writer-name))))
637                    (setf (slot-value dslotd 'internal-reader-function) reader)                    (setf (slot-value dslotd 'internal-reader-function) reader)

Legend:
Removed from v.1.47  
changed lines
  Added in v.1.48

  ViewVC Help
Powered by ViewVC 1.1.5