From 78f5fd5b00dcf238c96a656b021a01230fa96c81 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Tue, 12 Nov 1991 14:14:14 +0000
Subject: [PATCH] Quoted arg/result types in :EVAL-NAME DEFTRANSFORMs.

---
 compiler/array-tran.lisp | 8 +++-----
 compiler/seqtran.lisp    | 8 ++++----
 2 files changed, 7 insertions(+), 9 deletions(-)

diff --git a/compiler/array-tran.lisp b/compiler/array-tran.lisp
index 24a20dc0b..28ea744e4 100644
--- a/compiler/array-tran.lisp
+++ b/compiler/array-tran.lisp
@@ -7,12 +7,10 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/array-tran.lisp,v 1.13 1991/11/09 18:57:19 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/array-tran.lisp,v 1.14 1991/11/12 14:14:14 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/array-tran.lisp,v 1.13 1991/11/09 18:57:19 wlott Exp $
-;;;
 ;;; This file contains array specific optimizers and transforms.
 ;;; 
 ;;; Extracted from srctran and extended by William Lott.
@@ -549,14 +547,14 @@
   ;;
   ;; Make a result array if result is NIL or unsupplied.
   (deftransform fun ((bit-array-1 bit-array-2 &optional result-bit-array)
-		     (bit-vector bit-vector &optional null) *
+		     '(bit-vector bit-vector &optional null) '*
 		     :eval-name t  :policy (>= speed space))
     `(,fun bit-array-1 bit-array-2
 	   (make-array (length bit-array-1) :element-type 'bit)))
   ;;
   ;; If result its T, make it the first arg.
   (deftransform fun ((bit-array-1 bit-array-2 result-bit-array)
-		     (bit-vector bit-vector (member t)) *
+		     '(bit-vector bit-vector (member t)) '*
 		     :eval-name t)
     `(,fun bit-array-1 bit-array-2 bit-array-1)))
 
diff --git a/compiler/seqtran.lisp b/compiler/seqtran.lisp
index e000c1df1..e5fa1f8a7 100644
--- a/compiler/seqtran.lisp
+++ b/compiler/seqtran.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/seqtran.lisp,v 1.12 1991/11/05 19:26:21 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/seqtran.lisp,v 1.13 1991/11/12 14:13:53 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -412,7 +412,7 @@
 	(string/= string/=*)) do
   (deftransform fun ((string1 string2 &key (start1 0) end1
 			      (start2 0) end2)
-		     * * :eval-name t)
+		     '* '* :eval-name t)
     `(,pred* string1 string2 start1 end1 start2 end2)))
 
 
@@ -428,7 +428,7 @@
 	(string>* nil nil)
 	(string>=* nil t)) do
   (deftransform name ((string1 string2 start1 end1 start2 end2)
-		      (simple-string simple-string t t t t) *
+		      '(simple-string simple-string t t t t) '*
 		      :eval-name t)
     `(let* ((end1 (if (not end1) (length string1) end1))
 	    (end2 (if (not end2) (length string2) end2))
@@ -452,7 +452,7 @@
       '((string=* not)
 	(string/=* identity)) do
   (deftransform name ((string1 string2 start1 end1 start2 end2)
-		      (simple-string simple-string t t t t) *
+		      '(simple-string simple-string t t t t) '*
 		      :eval-name t)
     `(,result-fun
       (lisp::%sp-string-compare
-- 
GitLab