test.lisp

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