Skip to content
Snippets Groups Projects
Commit fac4a62e authored by wlott's avatar wlott
Browse files

The make-string source transform was quoting the initial element, even if

it wasn't a constant.  Ooops.
parent 0a75e798
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC). ;;; Scott Fahlman (FAHLMAN@CMUC).
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/array-tran.lisp,v 1.4 1990/11/13 06:16:57 wlott Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/array-tran.lisp,v 1.5 1990/11/16 06:01:07 wlott Exp $
;;; ;;;
;;; This file contains array specific optimizers and transforms. ;;; This file contains array specific optimizers and transforms.
;;; ;;;
...@@ -158,7 +158,7 @@ ...@@ -158,7 +158,7 @@
(def-source-transform make-string (length &key (initial-element #\NULL)) (def-source-transform make-string (length &key (initial-element #\NULL))
`(make-array ,length `(make-array ,length
:element-type 'base-character :element-type 'base-character
:initial-element ',initial-element)) :initial-element ,initial-element))
(defconstant array-info (defconstant array-info
'((base-character #\NULL 8 vm:simple-string-type) '((base-character #\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