Skip to content
Snippets Groups Projects
Commit 9bf961f0 authored by gerd's avatar gerd
Browse files

* src/compiler/array-tran.lisp (make-string): Change the

	def-source-transform to a deftransform to ensure
	argument evaluation order.
parent 3727fad4
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/compiler/array-tran.lisp,v 1.29 2002/10/15 21:23:13 toy Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/array-tran.lisp,v 1.30 2003/02/22 13:34:02 gerd Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -190,13 +190,11 @@ ...@@ -190,13 +190,11 @@
;;; ;;;
;;; Just convert it into a make-array. ;;; Just convert it into a make-array.
;;; ;;;
(def-source-transform make-string (length &key (element-type ''base-char) (deftransform make-string ((length &key (element-type ''base-char)
(initial-element #\NULL)) (initial-element #\NULL)))
(if (byte-compiling) `(make-array (the (values index &rest t) length)
(values nil t) :element-type element-type
`(make-array (the (values index &rest t) ,length) :initial-element initial-element))
:element-type ,element-type
:initial-element ,initial-element)))
(defconstant array-info (defconstant array-info
'((base-char #\NULL 8 vm:simple-string-type) '((base-char #\NULL 8 vm:simple-string-type)
......
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