From ea555590b2c51a374d54d3a35c5eb8d15fe26075 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Thu, 11 Oct 2012 22:12:29 +0200 Subject: [PATCH] When printing a class, print also the package name. --- src/clos/print.lsp | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/src/clos/print.lsp b/src/clos/print.lsp index 188b2a5e7..f74f82375 100644 --- a/src/clos/print.lsp +++ b/src/clos/print.lsp @@ -168,14 +168,16 @@ printer and we should rather use MAKE-LOAD-FORM." (defmethod print-object ((instance t) stream) (print-unreadable-object (instance stream) - (format stream "a ~S" - (class-name (si:instance-class instance)))) + (let ((*package* (find-package "CL"))) + (format stream "a ~S" + (class-name (si:instance-class instance))))) instance) (defmethod print-object ((class class) stream) (print-unreadable-object (class stream) - (format stream "The ~A ~S" - (class-name (si:instance-class class)) (class-name class))) + (let ((*package* (find-package "CL"))) + (format stream "The ~S ~S" + (class-name (si:instance-class class)) (class-name class)))) class) (defmethod print-object ((gf standard-generic-function) stream)