[slime-cvs] CVS slime

[CVS User sboukarev]

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv9243

Modified Files:
	ChangeLog swank-allegro.lisp 
Log Message:
* swank-allegro.lisp (fspec-definition-locations): Default
&optional position to 0, otherwise it may cause errors later.
Reported by: Paulo Madeira.


--- /project/slime/cvsroot/slime/ChangeLog	2010/08/04 18:20:22	1.2118
+++ /project/slime/cvsroot/slime/ChangeLog	2010/08/04 18:41:04	1.2119
@@ -1,5 +1,11 @@
 2010-08-04  Stas Boukarev  <stassats at gmail.com>
 
+	* swank-allegro.lisp (fspec-definition-locations): Default
+	&optional position to 0, otherwise it may cause errors later.
+	Reported by: Paulo Madeira.
+
+2010-08-04  Stas Boukarev  <stassats at gmail.com>
+
 	* slime.el (slime-dispatch-event): :eval-no-wait, lisp sends a
 	form in a string, not a function name and arguments. Add
 	slime-check-eval-in-emacs-enabled.
--- /project/slime/cvsroot/slime/swank-allegro.lisp	2010/06/04 07:30:14	1.141
+++ /project/slime/cvsroot/slime/swank-allegro.lisp	2010/08/04 18:41:04	1.142
@@ -536,7 +536,7 @@
   (cond
     ((and (listp fspec)
           (eql (car fspec) :top-level-form))
-     (destructuring-bind (top-level-form file &optional position) fspec 
+     (destructuring-bind (top-level-form file &optional (position 0)) fspec 
        (declare (ignore top-level-form))
        `((,fspec
           ,(buffer-or-file-location file position)))))