# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1473257899 0
# Node ID 8b0e540e23e7ec14717fb37c33100987073399eb
# Parent  32ee4d3dee2fcce625156b42941b9d1425002a5f
Use trivial-arguments to support more implementations

diff -r 32ee4d3dee2f -r 8b0e540e23e7 nrepl.asd
--- a/nrepl.asd	Wed Sep 07 12:04:27 2016 +0000
+++ b/nrepl.asd	Wed Sep 07 14:18:19 2016 +0000
@@ -17,7 +17,7 @@
                #:cl-ppcre
                #:split-sequence
                #:dissect
-               #+sbcl :sb-introspect)
+               #:trivial-arguments)
 
   :serial t
   :components
diff -r 32ee4d3dee2f -r 8b0e540e23e7 src/middleware/documentation.lisp
--- a/src/middleware/documentation.lisp	Wed Sep 07 12:04:27 2016 +0000
+++ b/src/middleware/documentation.lisp	Wed Sep 07 14:18:19 2016 +0000
@@ -14,12 +14,10 @@
 
   "
   (if (fboundp symbol)
-    (values
-      #+sbcl (sb-introspect:function-lambda-list symbol)
-      #+ccl (ccl:arglist symbol)
-      #+abcl (sys::arglist symbol)
-      #-(or sbcl ccl abcl) nil
-      t)
+    (let ((arglist (trivial-arguments:arglist symbol)))
+      (if (eql :unknown arglist)
+        (values nil nil)
+        (values arglist t)))
     (values nil nil)))