/[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.11 by wlott, Wed Jun 5 10:58:50 1991 UTC revision 1.12 by wlott, Sat Nov 9 02:42:34 1991 UTC
# Line 177  Line 177 
177  ;;;  ;;;
178  (def-source-transform make-string (length &key (initial-element #\NULL))  (def-source-transform make-string (length &key (initial-element #\NULL))
179    `(make-array ,length    `(make-array ,length
180                 :element-type 'base-character                 :element-type 'base-char
181                 :initial-element ,initial-element))                 :initial-element ,initial-element))
182    
183  (defconstant array-info  (defconstant array-info
184    '((base-character #\NULL 8 vm:simple-string-type)    '((base-char #\NULL 8 vm:simple-string-type)
185      (single-float 0.0s0 32 vm:simple-array-single-float-type)      (single-float 0.0s0 32 vm:simple-array-single-float-type)
186      (double-float 0.0d0 64 vm:simple-array-double-float-type)      (double-float 0.0d0 64 vm:simple-array-double-float-type)
187      (bit 0 1 vm:simple-bit-vector-type)      (bit 0 1 vm:simple-bit-vector-type)

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

  ViewVC Help
Powered by ViewVC 1.1.5