From 56b586fab80d34bec0be07820803390ff655624d Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Sat, 16 Jun 1990 15:07:32 +0000 Subject: [PATCH] Changed the primitive-type printer to only print the lisp type if its defined. It might not be during meta-compile type during a bootstrap. --- compiler/vop.lisp | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/compiler/vop.lisp b/compiler/vop.lisp index e9f5cb4da..6a4f2599e 100644 --- a/compiler/vop.lisp +++ b/compiler/vop.lisp @@ -50,6 +50,8 @@ ;;; the primitive types of the operands, and the primitive type of a value ;;; is used to constrain the possible representations of that value. ;;; +(eval-when (compile load eval) +;;; (defstruct (primitive-type (:print-function %print-primitive-type)) ;; ;; The name of this primitive-type. @@ -71,10 +73,13 @@ (defprinter primitive-type name - (type :test (not (eq (type-specifier type) - (primitive-type-name structure))) + (type :test (and type + (not (eq (type-specifier type) + (primitive-type-name structure)))) :prin1 (type-specifier type))) +); eval-when (compile load eval) + ;;;; IR1 annotations used for IR2 conversion: ;;; -- GitLab