Revision: 4449 Author: edi URL: http://bknr.net/trac/changeset/4449

Adapt to new SBCL version - Tobias Rittweiler

U trunk/thirdparty/documentation-template/util.lisp

Modified: trunk/thirdparty/documentation-template/util.lisp =================================================================== --- trunk/thirdparty/documentation-template/util.lisp 2009-08-27 10:08:27 UTC (rev 4448) +++ trunk/thirdparty/documentation-template/util.lisp 2009-09-02 08:23:43 UTC (rev 4449) @@ -29,19 +29,31 @@

(in-package :documentation-template)

+(eval-when (:compile-toplevel :load-toplevel :execute) + (defun with-symbol (name package) + "Generate a form suitable for testing with #+." + (if (find-symbol (string name) (string package)) + '(:and) + '(:or)))) + ;;; For the purpose of this file, an "entry" is a list of four or five ;;; symbols - a name, a keyword for the kind of the entry, a lambda ;;; list (for functions and macros), a documentation string, and ;;; optionally a list of specializers

-#+(or :sbcl :allegro) +#+:sbcl (defun function-lambda-list (function) "Returns the lambda list of the function designator FUNCTION." - #+:sbcl - (sb-introspect:function-arglist function) - #+:allegro + #+#.(documentation-template::with-symbol 'function-lambda-list :sb-introspect) + (sb-introspect:function-lambda-list function) + #-#.(documentation-template::with-symbol 'function-lambda-list :sb-introspect) + (sb-introspect:function-arglist function)) + +#+allegro +(defun function-lambda-list (function) + "Returns the lambda list of the function designator FUNCTION." (excl:arglist function)) - + (defun symbol-constant-p (symbol) "Returns true if SYMBOL is a constant." #+:lispworks (sys:symbol-constant-p symbol)