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