Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv5492
Modified Files:
ChangeLog swank-scl.lisp
Log Message:
* Update for the SCL.
--- /project/slime/cvsroot/slime/ChangeLog 2006/09/13 15:36:58 1.944
+++ /project/slime/cvsroot/slime/ChangeLog 2006/09/13 22:56:14 1.945
@@ -1,3 +1,7 @@
+2006-09-14 Douglas Crosher <dcrosher at common-lisp.net>
+
+ * swank-scl (arglist, function-arglist, spawn): update for the SCL.
+
2006-09-13 Brandon Bergren <bdragon at mailsnare.net>
* slime.el (slime-filename-translations): Fix docstring
--- /project/slime/cvsroot/slime/swank-scl.lisp 2006/08/10 11:53:35 1.10
+++ /project/slime/cvsroot/slime/swank-scl.lisp 2006/09/13 22:56:14 1.11
@@ -1172,14 +1172,12 @@
;;;;; Argument lists
(defimplementation arglist (fun)
- (cond ((and (symbolp fun) (macro-function fun))
- (arglist (macro-function fun)))
- ((fboundp fun)
- (function-arglist (fdefinition fun)))
- (t
- :not-available)))
+ (etypecase fun
+ (function (function-arglist fun))
+ (symbol (function-arglist (or (macro-function fun)
+ (symbol-function fun))))))
-(defun function-arglist (fun function)
+(defun function-arglist (fun)
(flet ((compiled-function-arglist (x)
(let ((args (kernel:%function-arglist x)))
(if args
@@ -1918,8 +1916,8 @@
;;;; Multiprocessing
-(defimplementation spawn (fn &key (name "Anonymous"))
- (thread:thread-create fn :name name))
+(defimplementation spawn (fn &key name)
+ (thread:thread-create fn :name (or name "Anonymous")))
(defvar *thread-id-counter* 0)
(defvar *thread-id-counter-lock* (thread:make-lock "Thread ID counter"))