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