Use trivial-arguments to support more implementations
| author |
Steve Losh <steve@stevelosh.com> |
| date |
Wed, 07 Sep 2016 14:18:19 +0000 |
| parents |
32ee4d3dee2f
|
| children |
919ebd924aac
|
| branches/tags |
(none) |
| files |
nrepl.asd src/middleware/documentation.lisp |
Changes
--- 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
--- 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)))