From 2804e1aa59548f8f4ece3b52b12304fadf9df59e Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@users.sourceforge.net>
Date: Sat, 30 Mar 2013 23:29:40 +0100
Subject: [PATCH] PRINT-OBJECT did not have a valid default for built in class

---
 src/clos/print.lsp | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/clos/print.lsp b/src/clos/print.lsp
index f74f82375..735b0c95d 100644
--- a/src/clos/print.lsp
+++ b/src/clos/print.lsp
@@ -167,6 +167,9 @@ printer and we should rather use MAKE-LOAD-FORM."
 ;;; ----------------------------------------------------------------------
 
 (defmethod print-object ((instance t) stream)
+  (write instance :stream stream))
+
+(defmethod print-object ((instance standard-object) stream)
   (print-unreadable-object (instance stream)
     (let ((*package* (find-package "CL")))
       (format stream "a ~S"