/[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.42 by rtoy, Wed Mar 5 14:31:30 2008 UTC revision 1.42.2.1 by rtoy, Wed May 14 16:12:04 2008 UTC
# Line 245  Line 245 
245  ;;;  ;;;
246  ;;; Just convert it into a make-array.  ;;; Just convert it into a make-array.
247  ;;;  ;;;
248    #-unicode
249  (deftransform make-string ((length &key (element-type 'base-char)  (deftransform make-string ((length &key (element-type 'base-char)
250                                     (initial-element #\NULL)))                                     (initial-element #\NULL)))
251    `(make-array (the (values index &rest t) length)    `(make-array (the (values index &rest t) length)
# Line 252  Line 253 
253                 :initial-element initial-element))                 :initial-element initial-element))
254    
255  (defconstant array-info  (defconstant array-info
256    '((base-char #\NULL 8 vm:simple-string-type)    '((base-char #\NULL #-unicode 8 #+unicode 16 vm:simple-string-type)
257      (single-float 0.0f0 32 vm:simple-array-single-float-type)      (single-float 0.0f0 32 vm:simple-array-single-float-type)
258      (double-float 0.0d0 64 vm:simple-array-double-float-type)      (double-float 0.0d0 64 vm:simple-array-double-float-type)
259      #+long-float (long-float 0.0l0 #+x86 96 #+sparc 128      #+long-float (long-float 0.0l0 #+x86 96 #+sparc 128

Legend:
Removed from v.1.42  
changed lines
  Added in v.1.42.2.1

  ViewVC Help
Powered by ViewVC 1.1.5