From: David Vazquez <davazp@gmail.com>
Date: Sun, 16 Dec 2012 21:46:01 +0000 (+0000)
Subject: Remove backquote tests
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=8127c0baf74f8f0e2e72fbfa166ead372b606dc4;p=jscl.git

Remove backquote tests
---

diff --git a/lispstrack.lisp b/lispstrack.lisp
index f026618..57644e7 100644
--- a/lispstrack.lisp
+++ b/lispstrack.lisp
@@ -310,28 +310,6 @@
       (backquote-expand-1 (cadr form))
       form))
 
-;;; Some Tests comparing backquote agains the backquote of the host
-;;; Lisp. It is not very exhaustive, but we just want a working
-;;; backquotation to be able bootstrap this program.
-(macrolet ((test (form1 form2)
-             `(assert (equal ,form1 ,form2))))
-  (test (backquote (1 2 3 4))
-        `(1 2 3 4))
-  (test (backquote (1 2 (+ 3 4)))
-        `(1 2 (+ 3 4)))
-  (test (backquote (1 2 (unquote (+ 3 4))))
-        `(1 2 ,(+ 3 4)))
-  (test (backquote (1 2 (unquote-splicing '(3 4))))
-        `(1 2 ,@'(3 4)))
-  (test (backquote (backquote x))
-        ``x)
-  (let ((x 10))
-    (test `',x
-          (backquote (quote (unquote x)))))
-  (let ((x 10))
-    (test (eval ``(,,x))
-          (eval (backquote (backquote ((unquote (unquote x)))))))))
-
 (define-transformation backquote (form)
   (backquote-expand-1 form))