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
_______________________________________________
Stumpwm-devel mailing list
Stumpwm-devel@nongnu.org
https://lists.nongnu.org/mailman/listinfo/stumpwm-devel

Reply via email to