test.lisp

   1 (lambda (x y) x)
   2
   3 (debug "hola")
   4 (debug '(1 2 3 4))
   5 (debug (if 2 (+ 2 1) 0))
   6 (debug (= (+ 2 1) (- 4 1)))
   7
   8 ;;; Variables
   9 (debug "---VARIABLES---")
  10 (eval-when-compile
  11   (%compile-defvar 'name))
  12 (setq name 10)
  13 (debug name)
  14
  15 ;;; Functions
  16 (debug "---FUNCTIONS---")
  17 (eval-when-compile
  18   (%compile-defun 'f))
  19 (fsetq f (lambda (x) (+ x 10)))
  20 (debug (f 20))
  21
  22 (debug ((lambda (x) x) 9999))
  23
  24 ;;; Macros
  25 (debug "---MACROS---")
  26
  27 (eval-when-compile
  28   (%compile-defmacro 'defmacro
  29                      (lambda (name args &rest body)
  30                        (list 'eval-when-compile
  31                              (list '%compile-defmacro (list 'quote name)
  32                                    (list* 'lambda args body))))))
  33
  34 (defmacro incf (x)
  35   (list 'setq x (list '+ 1 x)))
  36
  37 (eval-when-compile
  38   (%compile-defvar 'x))
  39
  40 (setq x 10)
  41 (incf x)
  42 (debug x)
  43
  44 ;;; Conses
  45 (debug (cons 1 2))
  46 (debug (car (cons 1 2)))
  47 (debug (cdr (cons 1 2)))
  48
  49 (setq x '(1 . 2))
  50 (debug x)
  51 (debug (eq x x))
  52 (debug (eq '(1 . 2) '(1 . 2)))
  53
  54 ;;; Symbols
  55 (debug (symbol-name 'foo))
  56 (debug (symbol-name 'foo-bar))
  57
  58 (debug (progn 1 2 3 123))
  59
  60 (debug (let ((x 99999))
  61          (incf x)))
  62
  63 ;;; &rest lambda-list
  64
  65 (debug (lambda (&rest x) x))
  66 (debug (lambda (x y &rest z) z))
  67 (debug (lambda (x y &rest z) x))
  68
  69 ;; (debug (foo))
  70
  71 ;; (eval-when-compile
  72 ;;   (%compile-defmacro 'defun
  73 ;;                   (lambda (name args &rest body)
  74 ;;                     (list 'eval-when-compile
  75 ;;                           (list 'compile-defun)
  76 ;;                           (list 'fsetq (list 'lambda args (list 'progn body)))))))