From 133cdd88f1a1c0417271e4221d480e0d6a216273 Mon Sep 17 00:00:00 2001 From: toy <toy> Date: Mon, 9 Dec 2002 16:52:47 +0000 Subject: [PATCH] DEFSTRUCT was not recognizing the option :conc-name or (:conc-name). (Noted by Paul Dietz.) --- code/defstruct.lisp | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/code/defstruct.lisp b/code/defstruct.lisp index 20bbb8355..d13cad484 100644 --- a/code/defstruct.lisp +++ b/code/defstruct.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/defstruct.lisp,v 1.76 2002/07/31 15:54:33 toy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/defstruct.lisp,v 1.77 2002/12/09 16:52:47 toy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -485,7 +485,8 @@ (name (dd-name defstruct))) (case (first option) (:conc-name - (destructuring-bind (conc-name) args + (destructuring-bind (&optional conc-name) + args (setf (dd-conc-name defstruct) (if (symbolp conc-name) conc-name @@ -615,7 +616,8 @@ (parse-1-option option defstruct)) ((eq option :named) (setf (dd-named defstruct) t)) - ((member option '(:constructor :copier :predicate :named)) + ((member option '(:constructor :copier :predicate :named + :conc-name)) (parse-1-option (list option) defstruct)) (t (error "Unrecognized DEFSTRUCT option: ~S" option)))) -- GitLab