Remove need for ARGUMENTS AND VALUES when there are none

[sheep] / resources / success1.lisp

diff --git a/resources/success1.lisp b/resources/success1.lisp
index 3e33e13298c4f1359678d21b5bbebeea2300d77b..28d492df7cdae39169d04b6a1798e03400858495 100644 (file)
--- a/resources/success1.lisp
+++ b/resources/success1.lisp
@@ -7,7 +7,7 @@ to success1.md.")
  (:export
   #:*special-variable*
   #:test-condition
  (: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)
   #:values-result #:has-optional #:has-keywords #:has-rest))
 
 (in-package #:success1)


@@ -108,6 +108,17 @@ EXAMPLES:
   (func-that-does-stuff) => (:failure \"path/to/error.lisp\" \"Error msg\" 20 0)"
   nil)
 
   (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
 
 (defun has-no-examples ()
  "HAS-NO-EXAMPLES => RESULT