test.lisp

   1 ;;; Library
   2
   3 (eval-when-compile
   4   (%compile-defmacro 'defmacro
   5      (lambda (name args &rest body)
   6        `(eval-when-compile
   7           (%compile-defmacro ',name (lambda ,args ,@body))))))
   8
   9 (defmacro defun (name args &rest body)
  10   `(progn
  11      (eval-when-compile
  12        (%compile-defun ',name))
  13      (fsetq ,name (lambda ,args ,@body))))
  14
  15 (defun 1+ (x) (+ x 1))
  16 (defun 1- (x) (- x 1))
  17
  18 (defun append (list1 list2)
  19   (if (null list1)
  20       list2
  21       (cons (car list1)
  22             (append (cdr list1) list2))))
  23
  24 (defun reverse-aux (list acc)
  25   (if (null list)
  26       acc
  27       (reverse-aux (cdr list) (cons (car list) acc))))
  28
  29 (defun reverse (list)
  30   (reverse-aux list '()))
  31
  32 (defun mapcar (func list)
  33   (if (null list)
  34       '()
  35       (cons (funcall func (car list))
  36             (mapcar func (cdr list)))))
  37
  38 ;;; Tests
  39
  40 (lambda (x y) x)
  41
  42 (debug "hola")
  43 (debug '(1 2 3 4))
  44 (debug (if 2 (+ 2 1) 0))
  45 (debug (= (+ 2 1) (- 4 1)))
  46
  47 ;;; Variables
  48 (debug "---VARIABLES---")
  49 (eval-when-compile
  50   (%compile-defvar 'name))
  51 (setq name 10)
  52 (debug name)
  53
  54 ;;; Functions
  55 (debug "---FUNCTIONS---")
  56 (eval-when-compile
  57   (%compile-defun 'f))
  58 (fsetq f (lambda (x) (+ x 10)))
  59 (debug (f 20))
  60
  61 (debug ((lambda (x) x) 9999))
  62
  63 (debug #'f)
  64
  65 ;;; Macros
  66 (debug "---MACROS---")
  67
  68
  69
  70 (defmacro incf (x)
  71   (list 'setq x (list '+ 1 x)))
  72
  73 (eval-when-compile
  74   (%compile-defvar 'x))
  75
  76 (setq x 10)
  77 (incf x)
  78 (debug x)
  79
  80 ;;; Conses
  81 (debug (cons 1 2))
  82 (debug (car (cons 1 2)))
  83 (debug (cdr (cons 1 2)))
  84
  85 (setq x '(1 . 2))
  86 (debug x)
  87 (debug (eq x x))
  88 (debug (eq '(1 . 2) '(1 . 2)))
  89
  90 ;;; Symbols
  91 (debug (symbol-name 'foo))
  92 (debug (symbol-name 'foo-bar))
  93
  94 (debug (progn 1 2 3 123))
  95
  96 (debug (let ((x 99999))
  97          (incf x)))
  98
  99 ;;; &rest lambda-list
 100
 101 (debug (lambda (&rest x) x))
 102 (debug (lambda (x y &rest z) z))
 103 (debug (lambda (x y &rest z) x))
 104
 105
 106 ;; (eval-when-compile
 107 ;;   (%compile-defmacro 'defun
 108 ;;                   (lambda (name args &rest body)
 109 ;;                     (list 'eval-when-compile
 110 ;;                           (list 'compile-defun)
 111 ;;                           (list 'fsetq (list 'lambda args (list 'progn body)))))))