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 ;;; Macros
  23 (debug "---MACROS---")
  24
  25 (eval-when-compile
  26   (%compile-defmacro 'defmacro
  27                      (lambda (name args &rest body)
  28                        (list 'eval-when-compile
  29                              (list '%compile-defmacro (list 'quote name)
  30                                    (list* 'lambda args body))))))
  31
  32 (defmacro incf (x)
  33   (list 'setq x (list '+ 1 x)))
  34
  35 (eval-when-compile
  36   (%compile-defvar 'x))
  37
  38 (setq x 10)
  39 (incf x)
  40 (debug x)
  41
  42 ;;; Conses
  43 (debug (cons 1 2))
  44 (debug (car (cons 1 2)))
  45 (debug (cdr (cons 1 2)))
  46
  47 (setq x '(1 . 2))
  48 (debug x)
  49 (debug (eq x x))
  50 (debug (eq '(1 . 2) '(1 . 2)))
  51
  52 ;;; Symbols
  53 (debug (symbol-name 'foo))
  54 (debug (symbol-name 'foo-bar))
  55
  56
  57 ;;; &rest lambda-list
  58
  59 (debug (lambda (&rest x) x))
  60 (debug (lambda (x y &rest z) z))
  61 (debug (lambda (x y &rest z) x))
  62
  63 ;; (debug (foo))
  64
  65 ;; (eval-when-compile
  66 ;;   (%compile-defmacro 'defun
  67 ;;                   (lambda (name args &rest body)
  68 ;;                     (list 'eval-when-compile
  69 ;;                           (list 'compile-defun)
  70 ;;                           (list 'fsetq (list 'lambda args (list 'progn body)))))))