From 379ba08f76c4bbf54ca1fac3e6ce12daa3cf6453 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Wed, 12 May 1993 11:10:18 +0000 Subject: [PATCH] Changed *byte-compiling* to (byte-compiling), since during IR1 conversion we're not sure yet. --- compiler/array-tran.lisp | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/compiler/array-tran.lisp b/compiler/array-tran.lisp index 409e596fb..03862e676 100644 --- a/compiler/array-tran.lisp +++ b/compiler/array-tran.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/array-tran.lisp,v 1.15 1993/05/11 13:49:57 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/array-tran.lisp,v 1.16 1993/05/12 11:10:18 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -157,7 +157,7 @@ ;;; Convert VECTOR into a make-array followed by setfs of all the elements. ;;; (def-source-transform vector (&rest elements) - (if *byte-compiling* + (if (byte-compiling) (values nil t) (let ((len (length elements)) (n -1)) @@ -177,7 +177,7 @@ ;;; Just convert it into a make-array. ;;; (def-source-transform make-string (length &key (initial-element #\NULL)) - (if *byte-compiling* + (if (byte-compiling) (values nil t) `(make-array (the index ,length) :element-type 'base-char @@ -504,11 +504,11 @@ (macrolet ((frob (reffer setter type) `(progn (def-source-transform ,reffer (a &rest i) - (if *byte-compiling* + (if (byte-compiling) (values nil t) `(aref (the ,',type ,a) ,@i))) (def-source-transform ,setter (a &rest i) - (if *byte-compiling* + (if (byte-compiling) (values nil t) `(%aset (the ,',type ,a) ,@i)))))) (frob svref %svset simple-vector) -- GitLab