Skip to content
Snippets Groups Projects
Commit 133cdd88 authored by toy's avatar toy
Browse files

DEFSTRUCT was not recognizing the option :conc-name or (:conc-name).

(Noted by Paul Dietz.)
parent d0a6e0bd
No related branches found
No related tags found
No related merge requests found
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (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 @@ ...@@ -485,7 +485,8 @@
(name (dd-name defstruct))) (name (dd-name defstruct)))
(case (first option) (case (first option)
(:conc-name (:conc-name
(destructuring-bind (conc-name) args (destructuring-bind (&optional conc-name)
args
(setf (dd-conc-name defstruct) (setf (dd-conc-name defstruct)
(if (symbolp conc-name) (if (symbolp conc-name)
conc-name conc-name
...@@ -615,7 +616,8 @@ ...@@ -615,7 +616,8 @@
(parse-1-option option defstruct)) (parse-1-option option defstruct))
((eq option :named) ((eq option :named)
(setf (dd-named defstruct) t)) (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)) (parse-1-option (list option) defstruct))
(t (t
(error "Unrecognized DEFSTRUCT option: ~S" option)))) (error "Unrecognized DEFSTRUCT option: ~S" option))))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment