[slime-cvs] CVS slime

[CVS User trittweiler]

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

Modified Files:
	slime.el ChangeLog 
Log Message:
	* slime.el (make-slime-buffer-location, make-slime-file-location):
	Do not default to (:hints), but to nil, as expected in the
	slime-side source-location machinery.


--- /project/slime/cvsroot/slime/slime.el	2009/03/07 19:08:03	1.1144
+++ /project/slime/cvsroot/slime/slime.el	2009/03/07 19:29:42	1.1145
@@ -3808,11 +3808,11 @@
 
 (defun make-slime-buffer-location (buffer-name position &optional hints)
   `(:location (:buffer ,buffer-name) (:position ,position)
-              ,(if hints `(:hints ,hints) `(:hints))))
+              ,(when hints `(:hints ,hints))))
 
 (defun make-slime-file-location (file-name position &optional hints)
   `(:location (:file ,file-name) (:position ,position)
-              ,(if hints `(:hints ,hints) `(:hints))))
+              ,(when hints `(:hints ,hints))))
 
 ;;; The hooks are tried in order until one succeeds, otherwise the
 ;;; default implementation involving `slime-find-definitions-function'
--- /project/slime/cvsroot/slime/ChangeLog	2009/03/07 19:08:03	1.1711
+++ /project/slime/cvsroot/slime/ChangeLog	2009/03/07 19:29:43	1.1712
@@ -1,5 +1,11 @@
 2009-03-08  Tobias C. Rittweiler  <tcr at freebits.de>
 
+	* slime.el (make-slime-buffer-location, make-slime-file-location):
+	Do not default to (:hints), but to nil, as expected in the
+	slime-side source-location machinery.
+
+2009-03-08  Tobias C. Rittweiler  <tcr at freebits.de>
+
 	* slime.el (slime-choose-overlay-region): Special case :read-error
 	notes regardless of position kind.