/[cmucl]/src/compiler/array-tran.lisp
ViewVC logotype

Diff of /src/compiler/array-tran.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.23 by dtc, Sat Jan 10 05:02:26 1998 UTC revision 1.24 by dtc, Fri Feb 13 16:09:48 1998 UTC
# Line 189  Line 189 
189  ;;;  ;;;
190  ;;; Just convert it into a make-array.  ;;; Just convert it into a make-array.
191  ;;;  ;;;
192  (def-source-transform make-string (length &key (initial-element #\NULL))  (def-source-transform make-string (length &key (element-type ''base-char)
193                                              (initial-element #\NULL))
194    (if (byte-compiling)    (if (byte-compiling)
195        (values nil t)        (values nil t)
196        `(make-array (the index ,length)        `(make-array (the index ,length)
197                     :element-type 'base-char                     :element-type ,element-type
198                     :initial-element ,initial-element)))                     :initial-element ,initial-element)))
199    
200  (defconstant array-info  (defconstant array-info

Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24

  ViewVC Help
Powered by ViewVC 1.1.5