[slime-cvs] CVS slime

[mkoeppe]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv21826

Modified Files:
	swank-allegro.lisp 
Log Message:
swank-allegro.lisp (fspec-definition-locations): Allow the
POSITION datum of :top-level-form fspecs to be missing.  This
apparently helpful for Allegro CL 8.1.  Patch from Utz-Uwe Haus


--- /project/slime/cvsroot/slime/swank-allegro.lisp	2007/09/10 15:39:05	1.97
+++ /project/slime/cvsroot/slime/swank-allegro.lisp	2007/09/26 23:15:41	1.98
@@ -402,7 +402,7 @@
   (cond
    ((and (listp fspec)
          (eql (car fspec) :top-level-form))
-    (destructuring-bind (top-level-form file position) fspec 
+    (destructuring-bind (top-level-form file &optional position) fspec 
       (list
        (list (list nil fspec)
              (make-location (list :buffer file)