[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[STUMP] [Patch] Fix sbcl warnings on deprecated function in manual.lisp
From: |
Sascha Wilde |
Subject: |
[STUMP] [Patch] Fix sbcl warnings on deprecated function in manual.lisp |
Date: |
Wed, 03 Aug 2011 11:33:49 +0200 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/24.0.50 (gnu/linux) |
Hi *,
this simple patch removes some warnings (and future errors) during build
on sbcl.
Background: sb-introspect:function-arglist has been deprecated since
1.0.25 and will be removed.
diff --git a/manual.lisp b/manual.lisp
index de5239a..2ba3278 100644
--- a/manual.lisp
+++ b/manual.lisp
@@ -46,7 +46,7 @@
(*print-pretty* nil))
(format s "@defun {~a} ~{~a~^ ~}~%~a~&@end
defun~%~%"
name
- #+sbcl (sb-introspect:function-arglist
fn)
+ #+sbcl
(sb-introspect:function-lambda-list fn)
#+clisp (ext:arglist fn)
#- (or sbcl clisp) '("(Check the code
for args list)")
(documentation fn 'function))
@@ -59,7 +59,7 @@
(*print-pretty* nil))
(format s "@defmac {~a} ~{~a~^ ~}~%~a~&@end
defmac~%~%"
name
- #+sbcl (sb-introspect:function-arglist
(macro-function symbol))
+ #+sbcl
(sb-introspect:function-lambda-list (macro-function symbol))
#+clisp (ext:arglist symbol)
#- (or sbcl clisp) '("(Check the code
for args list)")
;;; FIXME: when clisp compiles
@@ -96,7 +96,7 @@
(let ((cmd (symbol-function (find-symbol
(string-upcase name) :stumpwm))))
(format s "@deffn {Command} ~a ~{~a~^
~}~%~a~&@end deffn~%~%"
name
- #+sbcl (sb-introspect:function-arglist
cmd)
+ #+sbcl
(sb-introspect:function-lambda-list cmd)
#+clisp (ext:arglist cmd)
#- (or sbcl clisp) '("(Check the code
for args list)")
(documentation cmd 'function))
cheers
sascha
--
Sascha Wilde
Well, *my* brain likes to think it's vastly more powerful than any
finite Turing machine but it hasn't proven that to me...
-- Christopher Koppler in comp.lang.lisp
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [STUMP] [Patch] Fix sbcl warnings on deprecated function in manual.lisp,
Sascha Wilde <=