/[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.11.1.1 by ram, Wed Jan 15 16:09:30 1992 UTC
# Line 11  Line 11 
11  ;;;  ;;;
12  ;;; **********************************************************************  ;;; **********************************************************************
13  ;;;  ;;;
 ;;; $Header$  
 ;;;  
14  ;;; This file contains array specific optimizers and transforms.  ;;; This file contains array specific optimizers and transforms.
15  ;;;  ;;;
16  ;;; Extracted from srctran and extended by William Lott.  ;;; Extracted from srctran and extended by William Lott.
# Line 176  Line 174 
174  ;;; Just convert it into a make-array.  ;;; Just convert it into a make-array.
175  ;;;  ;;;
176  (def-source-transform make-string (length &key (initial-element #\NULL))  (def-source-transform make-string (length &key (initial-element #\NULL))
177    `(make-array ,length    `(make-array (the index ,length)
178                 :element-type 'base-character                 :element-type 'base-character
179                 :initial-element ,initial-element))                 :initial-element ,initial-element))
180    
# Line 549  Line 547 
547    ;;    ;;
548    ;; Make a result array if result is NIL or unsupplied.    ;; Make a result array if result is NIL or unsupplied.
549    (deftransform fun ((bit-array-1 bit-array-2 &optional result-bit-array)    (deftransform fun ((bit-array-1 bit-array-2 &optional result-bit-array)
550                       (bit-vector bit-vector &optional null) *                       '(bit-vector bit-vector &optional null) '*
551                       :eval-name t  :policy (>= speed space))                       :eval-name t  :policy (>= speed space))
552      `(,fun bit-array-1 bit-array-2      `(,fun bit-array-1 bit-array-2
553             (make-array (length bit-array-1) :element-type 'bit)))             (make-array (length bit-array-1) :element-type 'bit)))
554    ;;    ;;
555    ;; If result its T, make it the first arg.    ;; If result its T, make it the first arg.
556    (deftransform fun ((bit-array-1 bit-array-2 result-bit-array)    (deftransform fun ((bit-array-1 bit-array-2 result-bit-array)
557                       (bit-vector bit-vector (member t)) *                       '(bit-vector bit-vector (member t)) '*
558                       :eval-name t)                       :eval-name t)
559      `(,fun bit-array-1 bit-array-2 bit-array-1)))      `(,fun bit-array-1 bit-array-2 bit-array-1)))
560    

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

  ViewVC Help
Powered by ViewVC 1.1.5