[slime-cvs] CVS slime

[nsiivola]

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

Modified Files:
	ChangeLog swank.lisp 
Log Message:
Add *print-lines* to *macroexpand-printer-bindings*.

--- /project/slime/cvsroot/slime/ChangeLog	2007/03/25 00:10:50	1.1086
+++ /project/slime/cvsroot/slime/ChangeLog	2007/03/29 17:08:47	1.1087
@@ -1,3 +1,9 @@
+2007-03-29  Nikodemus Siivola <nikodemus at random-state.net>
+
+	* swank.lisp (*macroexpand-printer-bindings*): add *print-lines*
+	to defaults (NIL).
+	(find-definitions-for-emacs): use unless instead of cond.
+
 2007-03-25  Douglas Crosher <dcrosher at common-lisp.net>
 
 	* slime.el (with-selected-window): define for compatibility with
--- /project/slime/cvsroot/slime/swank.lisp	2007/03/24 17:42:50	1.463
+++ /project/slime/cvsroot/slime/swank.lisp	2007/03/29 17:08:48	1.464
@@ -3154,6 +3154,7 @@
   '((*print-circle* . nil)
     (*print-pretty* . t)
     (*print-escape* . t)
+    (*print-lines* . nil)
     (*print-level* . nil)
     (*print-length* . nil)))
 
@@ -4101,9 +4102,9 @@
 DSPEC is a string and LOCATION a source location. NAME is a string."
   (multiple-value-bind (sexp error)
       (ignore-errors (values (from-string name)))
-    (cond (error '())
-          (t (loop for (dspec loc) in (find-definitions sexp)
-                   collect (list (to-string dspec) loc))))))
+    (unless error
+      (loop for (dspec loc) in (find-definitions sexp)
+         collect (list (to-string dspec) loc)))))
 
 (defun alistify (list key test)
   "Partition the elements of LIST into an alist.  KEY extracts the key