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