[clim-desktop-cvs] CVS clim-desktop

[thenriksen]

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

Modified Files:
	swine.lisp 
Log Message:
`This-form' uses a mark, not an offset.


--- /project/clim-desktop/cvsroot/clim-desktop/swine.lisp	2006/05/30 20:38:58	1.14
+++ /project/clim-desktop/cvsroot/clim-desktop/swine.lisp	2006/05/30 23:09:44	1.15
@@ -871,7 +871,7 @@
             (,form-sym
              ;; Find a form with a valid (fboundp) operator.
              (let ((immediate-form
-                    (this-form (offset ,mark-value-sym) ,syntax-value-sym)))
+                    (this-form ,mark-value-sym ,syntax-value-sym)))
                ;; Recurse upwards until we find a form with a valid
                ;; operator. This could be improved a lot, as we could
                ;; inspect the lambda list of the found operator and