X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/blobdiff_plain/14a7e1bc1292858dce5ac75038f660c2e52898a5..d2882889dc2234eef5882eeaa79e83e4e0d638a3:/src/standard-display.lisp

diff --git a/src/standard-display.lisp b/src/standard-display.lisp
index c9f8fcb..2a72992 100644
--- a/src/standard-display.lisp
+++ b/src/standard-display.lisp
@@ -103,7 +103,7 @@
  default action is to FUNCALL-WITH-LAYERS the DISPLAY-USING-DESCRIPTION method."))
 
 (define-layered-method display
-  ((component t) (object standard-object) &rest args &key layers (type 'viewer)  &allow-other-keys)  
+  ((component t) (object t) &rest args &key layers (type 'viewer)  &allow-other-keys)  
   (let* ((occurence (find-occurence object))
 	 (plist (attribute.plist
 		 (find-attribute occurence (intern (format nil "~A" type) :KEYWORD))))
@@ -117,7 +117,7 @@
 
 
 (define-layered-method display
-  ((component t) (object t) &rest args &key (layers  '(+ viewer)) &allow-other-keys)
+  ((component t) (object t) &rest args &key layers (type 'viewer) &allow-other-keys)
   (funcall-with-layers 
    layers		 
    #'display-using-description  t component object args))