Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv9209 Modified Files: frames.lisp Log Message: Just a whitespace fixup --- /project/mcclim/cvsroot/mcclim/frames.lisp 2006/12/20 16:23:49 1.122 +++ /project/mcclim/cvsroot/mcclim/frames.lisp 2007/01/04 09:13:25 1.123 @@ -709,7 +709,7 @@ pane) (defun coerce-pane-name (pane name) - (when pane + (when pane (setf (slot-value pane 'name) name) (push pane (frame-named-panes (pane-frame pane)))) pane)