mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-09 06:30:32 -07:00
Code Issues Projects Releases Packages Wiki Activity

When printing a class, print also the package name.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-10-11 22:12:29 +02:00
parent 78b66f3bba
commit ea555590b2
1 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/clos/print.lsp
View file

@ -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)