Definitions of DEFUN and DEFMACRO without QUASIQUOTE. Not much fun!

(Go back to the real definition)

(setq defun
  (macro
    (lambda (n v b . bs)
      (list 'setq
            n
            (append (list 'lambda v)
                    (cons b bs))))))

(setq defmacro
  (macro
    (lambda (n v b . bs)
      (list 'setq
            n
            (list 'macro
                  (append (list 'lambda v)
                          (cons b bs)))))))

contact  |  privacy