[slime-cvs] CVS slime

[CVS User heller]

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

Modified Files:
	ChangeLog slime.el swank.lisp 
Log Message:
* slime.el, swank.lisp: #'(lambda -> (lambda

--- /project/slime/cvsroot/slime/ChangeLog	2010/06/04 07:30:26	1.2108
+++ /project/slime/cvsroot/slime/ChangeLog	2010/06/04 07:30:36	1.2109
@@ -1,3 +1,7 @@
+2010-06-04  Helmut Eller  <heller at common-lisp.net>
+
+	* slime.el, swank.lisp: #'(lambda -> (lambda
+
 2010-06-04 Stelian Ionescu <sionescu at cddr.org>
 
 	* swank.lisp: Move definition of LCONS before first use.
--- /project/slime/cvsroot/slime/slime.el	2010/05/28 13:55:30	1.1326
+++ /project/slime/cvsroot/slime/slime.el	2010/06/04 07:30:37	1.1327
@@ -3899,7 +3899,7 @@
            (destructure-case (slime-location.position loc)
              ((:tag &rest tags)
               (visit-tags-table tags-file)
-              (mapcar #'(lambda (xref)
+              (mapcar (lambda (xref)
                           (let ((old-dspec (slime-xref.dspec original-xref))
                                 (new-dspec (slime-xref.dspec xref)))
                             (setf (slime-xref.dspec xref) 
@@ -3960,7 +3960,7 @@
 (defun slime-etags-definitions (name)
   "Search definitions matching NAME in the tags file.
 The result is a (possibly empty) list of definitions."
-  (mapcar #'(lambda (loc)
+  (mapcar (lambda (loc)
               (make-slime-xref :dspec (second (slime-location.hints loc))
                                :location loc))
           (slime-etags-to-locations name)))
@@ -5954,7 +5954,7 @@
   (assert (memq initial-value slime-net-processes))
   (flet ((connection-identifier (p)
            (format "%s (pid %d)" (slime-connection-name p) (slime-pid p))))
-    (let ((candidates (mapcar #'(lambda (p)
+    (let ((candidates (mapcar (lambda (p)
                                   (cons (connection-identifier p) p))
                               slime-net-processes)))
       (cdr (assoc (completing-read prompt candidates 
--- /project/slime/cvsroot/slime/swank.lisp	2010/06/04 07:30:26	1.719
+++ /project/slime/cvsroot/slime/swank.lisp	2010/06/04 07:30:37	1.720
@@ -586,7 +586,7 @@
 
 (defmacro with-retry-restart ((&key (msg "Retry.")) &body body)
   (check-type msg string)
-  `(call-with-retry-restart ,msg #'(lambda () , at body)))
+  `(call-with-retry-restart ,msg (lambda () , at body)))
 
 (defmacro with-struct* ((conc-name get obj) &body body)
   (let ((var (gensym)))
@@ -2776,7 +2776,7 @@
         (handler-bind ((compiler-condition
                         (lambda (c) (push (make-compiler-note c) notes))))
           (measure-time-interval
-           #'(lambda ()
+           (lambda ()
                ;; To report location of error-signaling toplevel forms
                ;; for errors in EVAL-WHEN or during macroexpansion.
                (with-simple-restart (abort "Abort compilation.")
@@ -3604,8 +3604,8 @@
 
 (defun hash-table-to-alist (ht)
   (let ((result '()))
-    (maphash #'(lambda (key value)
-                 (setq result (acons key value result)))
+    (maphash (lambda (key value) 
+               (setq result (acons key value result)))
              ht)
     result))