From 8b84985ad42c053f2d247c5f5cd6bbf795b8713b Mon Sep 17 00:00:00 2001
From: emarsden <emarsden>
Date: Fri, 11 Apr 2003 15:41:59 +0000
Subject: [PATCH] Instead of ignoring the :element-type argument to
 MAKE-STRING, we check that it's a valid subtype of character (then ignore
 it).

---
 code/string.lisp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/code/string.lisp b/code/string.lisp
index e0de21af9..0aa7ca8db 100644
--- a/code/string.lisp
+++ b/code/string.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/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 @@
 (defun make-string (count &key element-type ((:initial-element fill-char)))
   "Given a character count and an optional fill character, makes and returns
    a new string Count long filled with the fill character."
-  (declare (fixnum count)
-	   (ignore element-type))
+  (declare (type fixnum count))
+  (assert (subtypep element-type 'character))
   (if fill-char
       (do ((i 0 (1+ i))
 	   (string (make-string count)))
-- 
GitLab