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