diff options
Diffstat (limited to 'Lisp/data-types.lisp')
-rw-r--r-- | Lisp/data-types.lisp | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/Lisp/data-types.lisp b/Lisp/data-types.lisp index 6181a3b..16d9147 100644 --- a/Lisp/data-types.lisp +++ b/Lisp/data-types.lisp @@ -98,6 +98,13 @@ (invoke-by-name class "hash")))) +(defmethod print-object ((selector selector) stream) + (print-unreadable-object (selector stream) + (format stream "~S `~A'" + 'selector + (selector-name selector)))) + + (defmethod print-object ((exception exception) stream) (print-unreadable-object (exception stream) (format stream "~S ~A {~X}" |