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