moros/dsk/lib/lisp/alias.lsp

(define def
  (macro args `(define ,@args)))

(define mac
  (macro args `(macro ,@args)))

(define fun
  (macro args `(function ,@args)))

(define def-mac
  (macro args `(define-macro ,@args)))

(define def-fun
  (macro args `(define-function ,@args)))

(define len length)

(define label
  (macro args `(define ,@args)))

(define lambda
  (macro args `(function ,@args)))

(define progn
  (macro args `(do ,@args)))

(define begin
  (macro args `(do ,@args)))