diff --git a/code/symbol.lisp b/code/symbol.lisp index dae3615c8d5c8c204def49cc5f1f8cbefec3907a..1e9962f9fc8a2e3ded78f220f24b1e9ee965f178 100644 --- a/code/symbol.lisp +++ b/code/symbol.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/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 @@ (simple-string (values thing old)) (fixnum (values "G" thing)) (string (values (coerce thing 'simple-string) old))) - (declare (simple-string prefix) (fixnum int)) + (declare (simple-string prefix)) (make-symbol (concatenate 'simple-string prefix (the simple-string