+;;; Library
+
+;;; Tests
+
(lambda (x y) x)
(debug "hola")
;;; Macros
(debug "---MACROS---")
-(eval-when-compile
- (%compile-defmacro 'defmacro
- (lambda (name args &rest body)
- (list 'eval-when-compile
- (list '%compile-defmacro (list 'quote name)
- (list* 'lambda args body))))))
+
(defmacro incf (x)
(list 'setq x (list '+ 1 x)))
(debug (lambda (x y &rest z) z))
(debug (lambda (x y &rest z) x))
-;; (debug (foo))
;; (eval-when-compile
;; (%compile-defmacro 'defun