trivial-macroexpand-all

2017-10-23

trivial-macroexpand-all

Provides a macroexpand-all function that calls the implementation specific equivalent.

Supports: abcl, allegro, ccl, clisp, cmucl, corman, lispworks, mkcl, sbcl, ecl & scl

If you the function from a supported implementation then the three return values are: - the expanded form - t - t, if the implementation specific equivalent accepts an environment

If you the function from an usupported implementation then the three return values are: - the original form - nil - 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

Author
Chris Bagley <chris.bagley@gmail.com>
License
Unlicense