[clim-desktop-cvs] CVS clim-desktop

[thenriksen]

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