add example to readme

1 files changed, 17 insertions, 0 deletions

diff --git a/README.md b/README.md
index 187c867..94359ce 100644
--- a/README.md
+++ b/README.md
@@ -12,6 +12,23 @@ If you the function from an usupported implementation then the two return values
 - the original form
 - nil
 
+## Example
+
+```
+CL-USER> (trivial-macroexpand-all:macroexpand-all '(or 1 2 3 4))
+
+(LET ((#:G622 1))
+  (IF #:G622
+      #:G622
+      (LET ((#:G623 2))
+        (IF #:G623
+            #:G623
+            (LET ((#:G624 3))
+              (IF #:G624
+                  #:G624
+                  4)))))
+```                  
+
 ## Trivial..again?
 
 Yup another library using the `trivial-*` naming convention`, `but look at the source.. it's pretty damn trivial