[bknr-cvs] edi changed trunk/thirdparty/documentation-template/util.lisp

[BKNR Commits]

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)