aliases.lisp 365 B

12345678910111213141516
  1. ;;;; aliases.lisp
  2. (in-package #:list-accumulator)
  3. (proclaim '(optimize))
  4. ;;; Typical alias convention.
  5. ;;; Defined locally to avoid dependencies.
  6. (defmacro alias (new old)
  7. `(defmacro ,new (&rest args)
  8. `(,',old ,@args)))
  9. (alias lacc list-accumulator)
  10. (alias alacc anaphoric-list-accumulator)
  11. (alias accl accumulate-from-list)
  12. (alias ulambda genlambda)