[slime-cvs] CVS update: slime/slime.el

[Luke Gorrie]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv20299

Modified Files:
	slime.el 
Log Message:
Fixup arglists in docstrings with \(fn convention.

Date: Thu Apr  8 07:55:12 2004
Author: lgorrie

Index: slime/slime.el
diff -u slime/slime.el:1.256 slime/slime.el:1.257
--- slime/slime.el:1.256	Thu Apr  8 06:08:59 2004
+++ slime/slime.el	Thu Apr  8 07:55:12 2004
@@ -649,7 +649,7 @@
   "Evaluate VALUE, and if the result is non-nil bind it to VAR and
 evaluate BODY.
 
-\(when-let (VAR VALUE) &rest BODY)"
+\(fn (VAR VALUE) &rest BODY)"
   `(let ((,var ,value))
      (when ,var , at body)))
 
@@ -696,8 +696,7 @@
                                          &body body)
   "Make the connection choosen by PREFIX-ARG current.
 
-\(slime-with-chosen-connection (&optional (PREFIX-ARG 'current-prefix-arg))
-  &body BODY)"
+\(fn (&optional (PREFIX-ARG 'current-prefix-arg)) &body BODY)"
   `(let ((slime-dispatching-connection 
           (slime-get-named-connection ,prefix-arg)))
      , at body))
@@ -1386,7 +1385,7 @@
   "Execute BODY in the process-buffer of PROCESS.
 If PROCESS is not specified, `slime-connection' is used.
 
-\(slime-with-connection-buffer (&optional PROCESS) &body BODY))"
+\(fn (&optional PROCESS) &body BODY))"
   `(with-current-buffer
        (process-buffer (or ,process (slime-connection)
                            (error "No connection")))
@@ -2813,7 +2812,7 @@
 (defmacro* with-struct ((conc-name &rest slots) struct &body body)
   "Like with-slots but works only for structs.
 
-\(with-struct (CONC-NAME &rest SLOTS) STRUCT &body BODY)"
+\(fn (CONC-NAME &rest SLOTS) STRUCT &body BODY)"
   (flet ((reader (slot) (intern (concat (symbol-name conc-name)
 					(symbol-name slot)))))
     (let ((struct-var (gensym "struct")))