From 8fdf681d92be1424a8434d6d2597addb8b0a3dc9 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Mon, 14 Jan 1991 10:52:45 +0000
Subject: [PATCH] Fixed bit-array canonicalizing for the T case to have the
 right type.

---
 compiler/array-tran.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/array-tran.lisp b/compiler/array-tran.lisp
index 07428a2ac..3af77f3a4 100644
--- a/compiler/array-tran.lisp
+++ b/compiler/array-tran.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/array-tran.lisp,v 1.7 1991/01/13 23:08:25 ram Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/array-tran.lisp,v 1.8 1991/01/14 10:52:45 ram Exp $
 ;;;
 ;;; This file contains array specific optimizers and transforms.
 ;;; 
@@ -536,7 +536,7 @@
   ;;
   ;; If result its T, make it the first arg.
   (deftransform fun ((bit-array-1 bit-array-2 result-bit-array)
-		     (bit-vector bit-vector (constant-argument t)) *
+		     (bit-vector bit-vector (member t)) *
 		     :eval-name t)
     `(,fun bit-array-1 bit-array-2 bit-array-1)))
 
-- 
GitLab