From 3117b53d4ca1f10c0c29fc82b5ae6124fed931e8 Mon Sep 17 00:00:00 2001 From: gerd <gerd> Date: Sun, 30 Mar 2003 21:17:03 +0000 Subject: [PATCH] * pcl/std-class.lisp (shared-initialize): Check that reader is fboundp, like for the writer. --- pcl/std-class.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/pcl/std-class.lisp b/pcl/std-class.lisp index 482dc3db7..1a08ecf0f 100644 --- a/pcl/std-class.lisp +++ b/pcl/std-class.lisp @@ -26,7 +26,7 @@ ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/std-class.lisp,v 1.47 2003/03/30 00:48:10 gerd Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/std-class.lisp,v 1.48 2003/03/30 21:17:03 gerd Exp $") (in-package :pcl) @@ -630,7 +630,8 @@ ,@readers-init ,@writers-init))) (unless (structure-type-p name) (eval defstruct-form)) (mapc (lambda (dslotd reader-name writer-name) - (let* ((reader (gdefinition reader-name)) + (let* ((reader (when (fboundp reader-name) + (gdefinition reader-name))) (writer (when (fboundp writer-name) (gdefinition writer-name)))) (setf (slot-value dslotd 'internal-reader-function) reader) -- GitLab