Skip to content
Snippets Groups Projects
Sébastien Villemot's avatar
Sébastien Villemot authored
Set upstream metadata fields: Bug-Database, Bug-Submit, Repository, Repository-Browse

See merge request !1
9236d9f9
History

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