X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=inline;f=test.lisp;h=ae8b02d4936cdec20797099740213a01e2a431cf;hb=1f4ae1183098cb793ad02b8aa08301f59488d28a;hp=f63710a8fa9390de2527f093b27a25a75a28d7b1;hpb=592794a9432ed6a38ebd5b58a0770e3a4891b027;p=jscl.git

diff --git a/test.lisp b/test.lisp
index f63710a..ae8b02d 100644
--- a/test.lisp
+++ b/test.lisp
@@ -1,33 +1,5 @@
 ;;; Library
 
-(eval-when-compile
-  (%compile-defmacro 'defmacro
-     (lambda (name args &rest body)
-       `(eval-when-compile
-          (%compile-defmacro ',name (lambda ,args ,@body))))))
-
-(defmacro defun (name args &rest body)
-  `(progn
-     (eval-when-compile
-       (%compile-defun ',name))
-     (fsetq ,name (lambda ,args ,@body))))
-
-(defun append (list1 list2)
-  (if (null list1)
-      list2
-      (cons (car list1)
-            (append (cdr list1) list2))))
-
-(defun reverse-aux (list acc)
-  (if (null list)
-      acc
-      (reverse-aux (cdr list) (cons (car list) acc))))
-
-(defun reverse (list)
-  (reverse-aux list '()))
-
-(debug (reverse '(1 2 3 4)))
-
 ;;; Tests
 
 (lambda (x y) x)