From 92b27832dbbe786c857e5fb461e218d370c14058 Mon Sep 17 00:00:00 2001
From: Daniel Cerqueira <dan.git@lispclub.com>
Date: Sat, 1 Aug 2026 20:28:56 +0100
Subject: removing strange code

I have no idea how this got in.  Will investigate at another time.
---
 test/main.lali | 27 ---------------------------
 1 file changed, 27 deletions(-)

(limited to 'test/main.lali')

diff --git a/test/main.lali b/test/main.lali
index 25a23cf..5ad4b55 100644
--- a/test/main.lali
+++ b/test/main.lali
@@ -96,30 +96,3 @@
                 (newline)
                 (princ '(All with success.))
                 (newline)))
-
-(defmacro clean (x) (newline) (princ '(** macro clean:)) (newline) (print x) (newline) (print x) (newline))
-(defmacro mac (x) (newline) (princ '(** macro:)) (newline) (print x) (newline) (print (eval x)) (newline))
-(defmacro macr (x) (newline) (princ '(** macro reverse:)) (newline) (print (eval x)) (newline) (print x) (newline))
-(defmacro double (x) (newline) (princ '(** double:)) (newline) (print (eval (eval x))) (newline))
-(defun fun (x) (newline) (princ '(** function:)) (newline) (print x) (newline) (print (eval x)) (newline))
-(defun fun1 (x) (newline) (princ '(** function reverse:)) (newline) (print (eval x)) (newline) (print x) (newline))
-
-(newline)
-(princ '(TEST (and t t f)))
-(newline)
-(princ '(- unquoted))
-(newline)
-(clean (and t t f))
-(mac (and t t f))
-(macr (and t t f))
-(double (and t t f))
-(fun (and t t f))
-(fun1 (and t t f))
-(princ '(- quoted))
-(newline)
-(clean '(and t t f))
-(mac '(and t t f))
-(macr '(and t t f))
-(double '(and t t f))
-(fun '(and t t f))
-(fun1 '(and t t f))
-- 
cgit