[slime-cvs] CVS slime

[nsiivola]

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

Modified Files:
	ChangeLog swank-sbcl.lisp 
Log Message:
Accept :emacs-direcory in emacs-buffer-source-location plist.

--- /project/slime/cvsroot/slime/ChangeLog	2007/04/08 22:56:32	1.1105
+++ /project/slime/cvsroot/slime/ChangeLog	2007/04/12 19:00:09	1.1106
@@ -1,3 +1,9 @@
+2007-04-12  Nikodemus Siivola <nikodemus at random-state.net>
+
+	* swank-sbcl.lisp (emacs-buffer-source-location): Add &allow-other-keys
+	to the descructuring of the source location plist in order to accept
+	:emacs-directory.
+
 2007-04-09  Marco Baringer  <mb at bese.it>
 
 	* swank.lisp (inspector-content-for-emacs): Look for refresh
--- /project/slime/cvsroot/slime/swank-sbcl.lisp	2007/03/29 17:12:38	1.176
+++ /project/slime/cvsroot/slime/swank-sbcl.lisp	2007/04/12 19:00:09	1.177
@@ -783,7 +783,9 @@
 
 (defun emacs-buffer-source-location (code-location plist)
   (if (code-location-has-debug-block-info-p code-location)
-      (destructuring-bind (&key emacs-buffer emacs-position emacs-string) plist
+      (destructuring-bind (&key emacs-buffer emacs-position emacs-string
+                                &allow-other-keys)
+          plist
         (let* ((pos (string-source-position code-location emacs-string))
                (snipped (with-input-from-string (s emacs-string)
                           (read-snippet s pos))))