[clim-desktop-cvs] CVS clim-desktop

Update of /project/clim-desktop/cvsroot/clim-desktop In directory clnet:/tmp/cvs-serv2701

Modified Files: swine.lisp Log Message: `Symbol-name-at-mark': Survive if no symbol can be found at mark.

--- /project/clim-desktop/cvsroot/clim-desktop/swine.lisp 2006/06/04 22:25:15 1.24 +++ /project/clim-desktop/cvsroot/clim-desktop/swine.lisp 2006/06/05 20:21:50 1.25 @@ -124,8 +124,8 @@

(defun symbol-name-at-mark (mark syntax) "Return the text of the symbol at mark." - (token-string syntax - (symbol-at-mark mark syntax))) + (let ((token (symbol-at-mark mark syntax))) + (when token (token-string syntax token))))

(defun this-form (mark syntax) "Return a form at mark. This function defines which