Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv4340
Modified Files: commands.lisp Log Message: Fixed broken :insert-default t in command parameters.
It wasn't being passed along in the call to ACCEPT in the acceptor. I feel a bit odd about this fix, because I vaguely recall that this used to work, at least in Climacs, but the code pretty obviously filtered :insert-default keywords away.
--- /project/mcclim/cvsroot/mcclim/commands.lisp 2008/04/15 19:52:57 1.78 +++ /project/mcclim/cvsroot/mcclim/commands.lisp 2008/04/20 07:19:10 1.79 @@ -663,7 +663,7 @@
(defun accept-form-for-argument (stream arg) (let ((accept-keys '(:default :default-type :display-default - :prompt :documentation))) + :prompt :documentation :insert-default))) (destructuring-bind (name ptype &rest key-args &key (mentioned-default nil mentioned-default-p) &allow-other-keys) @@ -692,7 +692,7 @@ (defun accept-form-for-argument-partial (stream ptype-arg command-arg original-command-arg ) (let ((accept-keys '(:default :default-type :display-default - :prompt :documentation))) + :prompt :documentation :insert-default))) (destructuring-bind (name ptype &rest key-args) ptype-arg (declare (ignore name))