[mcclim-cvs] CVS mcclim

[thenriksen]

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

Modified Files:
	commands.lisp 
Log Message:
Added type specification to inherit-from slot of command tables.

It's very easy to accidentally provide a non-list for the inherit-from
argument, but it's not correct, and will fail later on.


--- /project/mcclim/cvsroot/mcclim/commands.lisp	2008/01/29 19:13:07	1.74
+++ /project/mcclim/cvsroot/mcclim/commands.lisp	2008/01/29 22:27:11	1.75
@@ -70,7 +70,8 @@
   ((name :initarg :name :reader command-table-name)
    (inherit-from :initarg :inherit-from
 		 :initform '()
-		 :reader command-table-inherit-from)
+		 :reader command-table-inherit-from
+                 :type list)
    (commands  :accessor commands :initarg :commands
 	     :initform (make-hash-table :test #'eq))
    (command-line-names :accessor command-line-names