From c191d8f49e58bbc5b769780a0a17b5cec82174f1 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Mon, 6 Aug 2007 17:39:18 +0200
Subject: Make class and selector name retrieval more portable.

darcs-hash:f7a369dba0dda3e067547210ce7c008ae60cdc05
---
 Lisp/data-types.lisp | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'Lisp/data-types.lisp')

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}"
-- 
cgit v1.2.3