From 4d215b05fc0d76d1d00f034d38dd99200bf4a098 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= Date: Sat, 26 Mar 2016 11:08:13 +0100 Subject: [PATCH] print-object: print structure slots conformingly Fixes #178. --- src/clos/builtin.lsp | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/src/clos/builtin.lsp b/src/clos/builtin.lsp index 4634a2108..f2123232f 100644 --- a/src/clos/builtin.lsp +++ b/src/clos/builtin.lsp @@ -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)