X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/blobdiff_plain/81d7061052c90867a26b50e69e35f5d96b17686a..4271ab0badc43ec1c9ac5a9f71b8995702802234:/src/display.lisp

diff --git a/src/display.lisp b/src/display.lisp
index 862cf98..5888f0b 100644
--- 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)