mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-16 22:32:05 -08:00
Code Issues Projects Releases Packages Wiki Activity

PRINT-OBJECT did not have a valid default for built in class

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2013-03-30 23:29:40 +01:00
parent 7474915c7b
commit 2804e1aa59
1 changed files with 3 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/clos/print.lsp
View file

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