From 0ba0ef1162902f7e29f1091efd97aff21b614076 Mon Sep 17 00:00:00 2001
From: Helmut Merz <helmutm@cy55.de>
Date: Sun, 21 Apr 2024 15:31:37 +0200
Subject: [PATCH] make test-suite a class; and don't use methods at the moment

---
 forge/forge.lisp |  4 ++--
 testing.lisp     | 13 ++++++-------
 2 files changed, 8 insertions(+), 9 deletions(-)

diff --git a/forge/forge.lisp b/forge/forge.lisp
index 77f41b4..5d250b6 100644
--- a/forge/forge.lisp
+++ b/forge/forge.lisp
@@ -9,14 +9,14 @@
 (in-package :scopes/forge)
 
 (defclass forge-env ()
-  ((data-stack :initform 0
+  ((data-stack :initform nil
 			   :reader data-stack
 			   :accessor data-stack!)))
 
 (defun new-forge-env ()
   (make-instance 'forge-env))
 
-(defmethod exec ((fe forge-env) code)
+(defun exec (fe code)
   (dolist (x code)
 	(if (symbolp x)
       (funcall (find-symbol (symbol-name x) :scopes/forge) fe)
diff --git a/testing.lisp b/testing.lisp
index d0951da..d006a16 100644
--- a/testing.lisp
+++ b/testing.lisp
@@ -8,14 +8,13 @@
 
 (in-package :scopes/testing)
 
+(defclass test-suite ()
+  ((result :initform nil
+		   :reader result
+		   :accessor result!)))
+
 (defun test-suite ()
-  (vector nil))
-
-(defun result (tst)
-  (elt tst 0))
-
-(defmacro result! (tst) 
-  `(elt ,tst 0))
+  (make-instance 'test-suite))
 
 (defun assert-eq (tst have wanted)
   (push (equalp have wanted) (result! tst)))