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