diff --git a/compiler/vop.lisp b/compiler/vop.lisp index 01ca9c39d00b6535d90c484a8e58f5e74b5861f7..e69a077d217e28e75c4d9c4d8c67bf5477c856d2 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)