[mcclim-cvs] CVS mcclim/Apps/Listener

[crhodes]

Update of /project/mcclim/cvsroot/mcclim/Apps/Listener
In directory clnet:/tmp/cvs-serv13994

Modified Files:
	dev-commands.lisp 
Log Message:
PRESENTATION is a magical argument name for 
DEFINE-PRESENTATION-TO-COMMAND-TRANSLATOR.  This means that the body of 
the translator was unidiomatic, so change the name from PRESENTATION to 
OBJECT.


--- /project/mcclim/cvsroot/mcclim/Apps/Listener/dev-commands.lisp	2006/12/13 21:05:11	1.40
+++ /project/mcclim/cvsroot/mcclim/Apps/Listener/dev-commands.lisp	2007/01/05 12:45:22	1.41
@@ -425,19 +425,18 @@
               :menu t
               :documentation "Show Class Subclasses"
               :pointer-documentation "Show Class Subclasses")
-  (presentation)
-  (list (presentation-object presentation)))
+  (object)
+  (list object))
 
 
 (define-presentation-to-command-translator com-show-class-superclasses-translator
   (class-name com-show-class-superclasses lisp-commands
               :menu t
-              :tester ((presentation)
-                       (not (eq t (presentation-object presentation))))
+              :tester ((object) (not (eq t object)))
               :documentation "Show Class Superclasses"
               :pointer-documentation "Show Class Superclasses")
-  (presentation)
-  (list (presentation-object presentation)))
+  (object)
+  (list object))
 
 
 (define-presentation-to-command-translator com-show-class-generic-functions-translator
@@ -445,8 +444,8 @@
               :menu t
               :documentation "Show Class Generic Functions"
               :pointer-documentation "Show Class Generic Functions")
-  (presentation)
-  (list (presentation-object presentation)))
+  (object)
+  (list object))
 
 
 (define-presentation-to-command-translator com-show-class-slots-translator
@@ -454,8 +453,8 @@
               :menu t
               :documentation "Show Class Slots"
               :pointer-documentation "Show Class Slots")
-  (presentation)
-  (list (presentation-object presentation)))
+  (object)
+  (list object))
 
 
 ;;; CLOS introspection commands