(:export
#:*special-variable*
#:test-condition
- #:func-that-does-stuff #:noargs #:result-list #:has-no-examples
+ #:func-that-does-stuff #:noargs #:no-args-and-values #:result-list #:has-no-examples
#:values-result #:has-optional #:has-keywords #:has-rest))
(in-package #:success1)
(func-that-does-stuff) => (:failure \"path/to/error.lisp\" \"Error msg\" 20 0)"
nil)
+(defun no-args-and-values ()
+ "NO-ARGS-AND-VALUES => RESULT
+
+ RESULT: :nothing
+
+DESCRIPTION:
+
+ RESULT-LIST runs all the things against a file and returns
+ as soon as the first func error is found."
+ nil)
+
(defun has-no-examples ()
"HAS-NO-EXAMPLES => RESULT