Re: [STUMP] Compiling with new SBCL's

[Dirk Sondermann]

Hi,

After the latest patch, pathname-is-executable-p is no longer a simple
function in the sense of SBCL, but has become a closure. Therefore,
sb-impl::%simple-fun-arglist fails at extracting the arglist and
yields a value that isn't even a list.

This problem can be avoided by replacing sb-impl::%simple-fun-arglist
in manual.lisp by sb-introspect:function-arglist which can deal with
all kinds of functions (see the attached patch).

Regards,
Dirk

diff --git a/manual.lisp b/manual.lisp
index f3c5f06..422ffde 100644
--- a/manual.lisp
+++ b/manual.lisp
@@ -26,6 +26,8 @@
 
 (in-package :stumpwm)
 
+(require :sb-introspect)
+
 ;; handy for figuring out which symbol is borking the documentation
 (defun dprint (sym)
   (declare (ignorable sym))
@@ -44,7 +46,7 @@
                                     (*print-pretty* nil))
                                 (format s "@defun {~a} ~{~a~^ ~}~%~a~&@end 
defun~%~%"
                                         name
-                                        #+sbcl (sb-impl::%simple-fun-arglist 
fn)
+                                        #+sbcl (sb-introspect:function-arglist 
fn)
                                         #+clisp (ext:arglist fn)
                                         #- (or sbcl clisp) '("(Check the code 
for args list)")
                                         (documentation fn 'function))
@@ -57,7 +59,7 @@
                                      (*print-pretty* nil))
                                 (format s "@defmac {~a} ~{~a~^ ~}~%~a~&@end 
defmac~%~%"
                                         name
-                                        #+sbcl (sb-impl::%simple-fun-arglist 
(macro-function symbol))
+                                        #+sbcl (sb-introspect:function-arglist 
(macro-function symbol))
                                         #+clisp (ext:arglist symbol)
                                         #- (or sbcl clisp) '("(Check the code 
for args list)")
                                         ;;; FIXME: when clisp compiles
@@ -94,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-impl::%simple-fun-arglist 
cmd)
+                                        #+sbcl (sb-introspect:function-arglist 
cmd)
                                         #+clisp (ext:arglist cmd)
                                         #- (or sbcl clisp) '("(Check the code 
for args list)")
                                         (documentation cmd 'function))