fixed up wrappers .. we are this close to being fully functional!

[clinton/lisp-on-lines.git] / src / standard-display.lisp

diff --git a/src/standard-display.lisp b/src/standard-display.lisp
index 0fe6df5..bc1297c 100644 (file)
--- a/src/standard-display.lisp
+++ b/src/standard-display.lisp
@@ -41,6 +41,9 @@ This allows us to dispatch to a subclasses editor."
 (defdisplay (description (object string))
   (<:as-html object))
 
+(defdisplay (description (object symbol))
+  (<:as-html object))
+
 (defdisplay (description object (component t))
   "The default display for CLOS objects"
   (print (class-name (class-of object)))