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

print-object: print structure slots conformingly

Browse source 
Fixes #178.
This commit is contained in:
Daniel Kochmański 2016-03-26 11:08:13 +01:00
parent 0c9e67345c
commit 4d215b05fc
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/clos/builtin.lsp
View file

@ -112,8 +112,11 @@
(write-string " ..." stream)
(return))
(setq sv (si:instance-ref obj i))
(write-string " :" stream)
(prin1 (slot-definition-name (car scan)) stream)
(write-string " " stream)
;; 2.4.8.13 Sharpsign S: slots are keywords
(prin1 (intern (symbol-name (slot-definition-name (car scan)))
(find-package 'keyword))
stream)
(write-string " " stream)
(prin1 sv stream))
(write-string ")" stream)