[climacs-cvs] CVS climacs

Update of /project/climacs/cvsroot/climacs In directory clnet:/tmp/cvs-serv10360

Modified Files: climacs.lisp Log Message: Only execute a command when we actually have a command.

--- /project/climacs/cvsroot/climacs/climacs.lisp 2008/01/23 18:17:05 1.5 +++ /project/climacs/cvsroot/climacs/climacs.lisp 2008/01/26 11:28:53 1.6 @@ -77,7 +77,8 @@ (t (error 'type-error :datum thing :expected-type '(or null string pathname symbol)))))) (if climacs-frame - (execute-frame-command climacs-frame command) + (when command + (execute-frame-command climacs-frame command)) (apply #'climacs-common command :new-process t args))) t)