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 @@
;;; 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.
;;;
......@@ -158,7 +158,7 @@
(def-source-transform make-string (length &key (initial-element #\NULL))
`(make-array ,length
:element-type 'base-character
:initial-element ',initial-element))
:initial-element ,initial-element))
(defconstant array-info
'((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