Skip to content
Snippets Groups Projects
Commit 272d83eb authored by ram's avatar ram
Browse files

Added type check on conc-name option.

parent 78dda62b
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/defstruct.lisp,v 1.25 1991/11/06 19:20:08 ram Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/defstruct.lisp,v 1.26 1991/11/07 13:20:25 ram Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -169,7 +169,10 @@ ...@@ -169,7 +169,10 @@
(let ((option (caar options)) (let ((option (caar options))
(args (cdar options))) (args (cdar options)))
(case option (case option
(:conc-name (setq conc-name (car args))) (:conc-name
(setq conc-name (car args))
(unless (symbolp conc-name)
(setq conc-name (make-symbol (string conc-name)))))
(:constructor (:constructor
(setf constructor-opt-p t) (setf constructor-opt-p t)
(let ((lambda-list (cdr args)) (let ((lambda-list (cdr args))
......
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