Add documentation and generator.

[sheep] / resources / success1.lisp

diff --git a/resources/success1.lisp b/resources/success1.lisp
index 9b1bd140a1c2fa909dd797410e343c0b10e45e02..716dda6e8429c872f37aca487185fc3537b5a433 100644 (file)
--- a/resources/success1.lisp
+++ b/resources/success1.lisp
@@ -5,11 +5,18 @@
 This is should all get pulled in and the markdown.md should be equal
 to success1.md.")
  (:export
+  #:test-condition
   #:func-that-does-stuff #:noargs #:result-list #:has-no-examples
   #:values-result #:has-optional #:has-keywords #:has-rest))
 
 (in-package #:success1)
 
+(define-condition test-condition nil nil
+ (:documentation
+  "Simple documentation.
+
+For a simple condition."))
+
 (defun func-that-does-stuff (path x)
  "FUNC-THAT-DOES-STUFF PATH X => RESULT
 
@@ -51,7 +58,7 @@ ARGUMENTS AND VALUES:
 
 DESCRIPTION:
 
-  NOARGS runs all the things against a file and returns
+  RESULT-LIST runs all the things against a file and returns
   as soon as the first func error is found."
   nil)