[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

Update of /project/mcclim/cvsroot/mcclim/Drei
In directory clnet:/tmp/cvs-serv14257/Drei

Modified Files:
	syntax.lisp 
Log Message:
Implemented :inherit-menu keyword argument for MAKE-COMMAND-TABLE and DEFINE-COMMAND-TABLE.


--- /project/mcclim/cvsroot/mcclim/Drei/syntax.lisp	2008/01/15 07:27:14	1.15
+++ /project/mcclim/cvsroot/mcclim/Drei/syntax.lisp	2008/01/29 19:13:06	1.16
@@ -134,7 +134,8 @@
   "Fetch extra command tables to inherit from (using
 `additional-command-tables') as well as the command tables
 `table' actually directly inherits from."
-  (append (additional-command-tables *application-frame* table)
+  (append (mapcar #'find-command-table
+                  (additional-command-tables *application-frame* table))
           (call-next-method)))
 
 (defmacro define-syntax-command-table (name &rest args &key &allow-other-keys)
@@ -152,7 +153,7 @@
   `(progn (make-command-table ',name , at args)
           (defclass ,name (syntax-command-table)
             ())
-          (defmethod command-table-inherit-from :around ((table ,name))
+          (defmethod command-table-inherit-from ((table ,name))
             (append (call-next-method)
                     '(,name)
                     (command-table-inherit-from (find-command-table ',name))))))