Made attribute class layered

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

diff --git a/src/display.lisp b/src/display.lisp
index 862cf98..5888f0b 100644 (file)
--- a/src/display.lisp
+++ b/src/display.lisp
@@ -10,8 +10,9 @@
   (:documentation
    "Displays OBJECT via description using/in/with/on display"))
 
-(defun display (display object &rest args)
-  (display-using-description (description-of object) display object args))
+(defun display (display object &rest args &key attributes )
+  (let ((*display-attributes* attributes))
+    (display-using-description (description-of object) display object args)))
 
 (define-layered-method display-using-description 
   :around (description display object &rest args)
@@ -19,9 +20,11 @@
   (let ((*description* description)
        (*display* display)
        (*object*  object))
-      
     (call-next-method)))
 
+(defun display/d (&rest args)
+  (apply #'display-using-description args))
+
 
 
 (define-layered-method display-using-description (description display object &rest args)