[mcclim-cvs] CVS mcclim/Drei - mcclim-cvs@common-lisp.net - mailman3.common-lisp.net

9 Apr 2007

Update of /project/mcclim/cvsroot/mcclim/Drei
In directory clnet:/tmp/cvs-serv11562
Modified Files:
    lisp-syntax.lisp 
Log Message:
Fixed issue about deleting parts of (in-package) forms at end of
buffer.

--- /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax.lisp	2007/02/19 00:13:05	1.25
+++ /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax.lisp	2007/04/09 22:59:28	1.26
@@ -1461,8 +1461,8 @@
                do (return t))
             (loop
                for (offset . nil) in (package-list syntax)
-               unless (let ((form (form-around syntax offset)))
-                        (form-list-p form))
+               unless (and (>= (size buffer) offset)
+                           (form-list-p (form-around syntax offset)))
                do (return t)))))))
(defun update-package-list (buffer syntax)

    