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