[STUMP] [Patch] Fix sbcl warnings on deprecated function in manual.lisp

[Sascha Wilde]

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