[clim-desktop-cvs] CVS clim-desktop

5 Jun
2006
5 Jun
'06
8:21 p.m.
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
6973
Age (days ago)
6973
Last active (days ago)
0 comments
1 participants
participants (1)
-
thenriksen