Skip to content
Snippets Groups Projects
Commit 70f792e8 authored by pw's avatar pw
Browse files

Fix GENSYM to signal a type-error when NIL is supplied as an arg.

Satisfies ANSI requirement.
parent 758604d5
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/symbol.lisp,v 1.26 1998/03/30 03:25:01 dtc Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/symbol.lisp,v 1.27 1998/05/15 14:54:33 pw Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -212,7 +212,7 @@ ...@@ -212,7 +212,7 @@
"Counter for generating unique GENSYM symbols.") "Counter for generating unique GENSYM symbols.")
(declaim (type unsigned-byte *gensym-counter*)) (declaim (type unsigned-byte *gensym-counter*))
(defun gensym (&optional thing) (defun gensym (&optional (thing "G"))
"Creates a new uninterned symbol whose name is a prefix string (defaults "Creates a new uninterned symbol whose name is a prefix string (defaults
to \"G\"), followed by a decimal number. Thing, when supplied, will to \"G\"), followed by a decimal number. Thing, when supplied, will
alter the prefix if it is a string, or be used for the decimal number alter the prefix if it is a string, or be used for the decimal number
...@@ -229,7 +229,6 @@ ...@@ -229,7 +229,6 @@
(multiple-value-bind (multiple-value-bind
(prefix int) (prefix int)
(etypecase thing (etypecase thing
(null (values "G" old))
(simple-string (values thing old)) (simple-string (values thing old))
(fixnum (values "G" thing)) (fixnum (values "G" thing))
(string (values (coerce thing 'simple-string) old))) (string (values (coerce thing 'simple-string) old)))
......
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