Skip to content
Snippets Groups Projects
Commit 8b84985a authored by emarsden's avatar emarsden
Browse files

Instead of ignoring the :element-type argument to MAKE-STRING, we check

that it's a valid subtype of character (then ignore it).
parent c1a797db
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/string.lisp,v 1.11 2001/06/17 19:12:34 pw Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/string.lisp,v 1.12 2003/04/11 15:41:59 emarsden Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -361,8 +361,8 @@ ...@@ -361,8 +361,8 @@
(defun make-string (count &key element-type ((:initial-element fill-char))) (defun make-string (count &key element-type ((:initial-element fill-char)))
"Given a character count and an optional fill character, makes and returns "Given a character count and an optional fill character, makes and returns
a new string Count long filled with the fill character." a new string Count long filled with the fill character."
(declare (fixnum count) (declare (type fixnum count))
(ignore element-type)) (assert (subtypep element-type 'character))
(if fill-char (if fill-char
(do ((i 0 (1+ i)) (do ((i 0 (1+ i))
(string (make-string count))) (string (make-string count)))
......
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