/[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.39 by rtoy, Mon May 2 13:55:50 2005 UTC revision 1.40 by rtoy, Mon May 9 13:06:59 2005 UTC
# Line 644  Line 644 
644                       '(bit-vector bit-vector &optional null) '*                       '(bit-vector bit-vector &optional null) '*
645                       :eval-name t  :policy (>= speed space))                       :eval-name t  :policy (>= speed space))
646      `(,fun bit-array-1 bit-array-2      `(,fun bit-array-1 bit-array-2
647             (make-array (length bit-array-1) :element-type 'bit)))             (make-array (array-dimension bit-array-1 0) :element-type 'bit)))
648    ;;    ;;
649    ;; If result its T, make it the first arg.    ;; If result its T, make it the first arg.
650    (deftransform fun ((bit-array-1 bit-array-2 result-bit-array)    (deftransform fun ((bit-array-1 bit-array-2 result-bit-array)

Legend:
Removed from v.1.39  
changed lines
  Added in v.1.40

  ViewVC Help
Powered by ViewVC 1.1.5