From 9bf961f016f1cee4062f130deb6f8fc9a0627446 Mon Sep 17 00:00:00 2001
From: gerd <gerd>
Date: Sat, 22 Feb 2003 13:34:02 +0000
Subject: [PATCH] 	* src/compiler/array-tran.lisp (make-string): Change
 the 	def-source-transform to a deftransform to ensure 	argument
 evaluation order.

---
 compiler/array-tran.lisp | 14 ++++++--------
 1 file changed, 6 insertions(+), 8 deletions(-)

diff --git a/compiler/array-tran.lisp b/compiler/array-tran.lisp
index 2f3b45f29..75c88d044 100644
--- a/compiler/array-tran.lisp
+++ b/compiler/array-tran.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/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 @@
 ;;; 
 ;;; Just convert it into a make-array.
 ;;;
-(def-source-transform make-string (length &key (element-type ''base-char)
-					  (initial-element #\NULL))
-  (if (byte-compiling)
-      (values nil t)
-      `(make-array (the (values index &rest t) ,length)
-		   :element-type ,element-type
-		   :initial-element ,initial-element)))
+(deftransform make-string ((length &key (element-type ''base-char)
+				   (initial-element #\NULL)))
+  `(make-array (the (values index &rest t) length)
+	       :element-type element-type
+	       :initial-element initial-element))
 
 (defconstant array-info
   '((base-char #\NULL 8 vm:simple-string-type)
-- 
GitLab