Skip to content
Snippets Groups Projects
Commit 110e348a authored by dtc's avatar dtc
Browse files

Remove a redundant fixnum type declaration within gensym which limited

*gensym-counter* to a fixnum.
parent 625f8f15
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.27 1998/05/15 14:54:33 pw Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/symbol.lisp,v 1.28 1998/06/05 02:36:57 dtc Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -232,7 +232,7 @@ ...@@ -232,7 +232,7 @@
(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)))
(declare (simple-string prefix) (fixnum int)) (declare (simple-string prefix))
(make-symbol (make-symbol
(concatenate 'simple-string prefix (concatenate 'simple-string prefix
(the simple-string (the simple-string
......
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