+
+;;; Conses
+(debug (cons 1 2))
+(debug (car (cons 1 2)))
+(debug (cdr (cons 1 2)))
+
+
+;; (eval-when-compile
+;; (%compile-defmacro 'defun
+;; (lambda (name args &rest body)
+;; (list 'eval-when-compile
+;; (list 'compile-defun)
+;; (list 'fsetq (list 'lambda args (list 'progn body)))))))