diff options
author | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-08-06 17:39:18 +0200 |
---|---|---|
committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-08-06 17:39:18 +0200 |
commit | c191d8f49e58bbc5b769780a0a17b5cec82174f1 (patch) | |
tree | 72bb1fb5c57b577bf17f055c6a37f6396e2e6d61 /Lisp/data-types.lisp | |
parent | 6ac284ebf50cc18f42115db05feecbccd659f8eb (diff) |
Make class and selector name retrieval more portable.
darcs-hash:f7a369dba0dda3e067547210ce7c008ae60cdc05
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}" |