From 2214dd7d466ac27fc79ae045235c5c13e6b078ba Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Fri, 30 Mar 1990 12:21:40 +0000
Subject: [PATCH] Fixed TEMPLATE print function to not assume operand
 restrictions are always primitive types.

---
 compiler/vop.lisp | 12 ++++--------
 1 file changed, 4 insertions(+), 8 deletions(-)

diff --git a/compiler/vop.lisp b/compiler/vop.lisp
index 01ca9c39d..e69a077d2 100644
--- a/compiler/vop.lisp
+++ b/compiler/vop.lisp
@@ -696,14 +696,10 @@
 
 (defprinter template
   name
-  (arg-types :prin1 (mapcar #'primitive-type-name arg-types))
-  (result-types :prin1 (if (listp result-types)
-			   (mapcar #'primitive-type-name result-types)
-			   result-types))
-  (more-args-type :test more-args-type
-		  :prin1 (primitive-type-name more-args-type))
-  (more-results-type :test more-results-type
-		     :prin1 (primitive-type-name more-results-type))
+  arg-types
+  result-types
+  (more-args-type :test more-args-type :prin1 more-args-type)
+  (more-results-type :test more-results-type :prin1 more-results-type)
   policy
   cost
   (note :test note)
-- 
GitLab