trying to start with simple things: forge interpreter and testing facility

forge/forge.lisp

@@ -3,14 +3,22 @@
 ;;;; A Forth-like interpreter implemented in Common Lisp.
 
 (defpackage :scopes/forge
-  (:nicknames :scf)
   (:use :common-lisp)
-  (:export #:hello))
+  (:export #:hello #:new-forge-env #:exec #:add))
 
 (in-package :scopes/forge)
 
+(defun new-forge-env ()
+  nil)
+
+(defun exec (fe &rest code)
+  nil)
+
+(defun add (fe)
+  0)
+
 (defun hello ()
-  (format t "Hello Common Lisp - 2024-04-18"))
+  (format t "Hello Common Lisp - 2024-04-19"))
 
 (defclass track () (
   (taskid :initarg :taskid)

scopes.asd

@@ -1,15 +1,15 @@
 (in-package #:asdf-user)
 
 (defsystem :scopes
-  :author ""
-  :maintainer ""
+  :author "cyberconcepts.org Team <team@cyberconcepts.org>"
   :license "MIT"
   :version "0.0.1"
   :homepage "https://www.cyberconcepts.org"
   :description ""
   :depends-on (:str)
   :components ((:file "forge/forge")
-			   (:file "test/test-forge"))
+			   (:file "testing")
+			   (:file "test/test-forge" :depends-on ("testing" "forge/forge")))
 
   :long-description "scopes: generic data processingg facilities")
   ;;#.(uiop:read-file-string

test/test-forge.lisp

@@ -3,10 +3,15 @@
 ;;;; testing facility for scopes/forge
 
 (defpackage :scopes/test-forge
-  (:use :common-lisp :scopes/forge)
+  (:use :common-lisp)
+  (:local-nicknames (:scf :scopes/forge) (:sct :scopes/testing))
   (:export #:run))
 
 (in-package :scopes/test-forge)
 
 (defun run ()
-  (scf:hello))
+  (scf:hello)
+  (let ((fe (scf:new-forge-env))
+		(tst (sct:test-suite)))
+   (scf:exec '(fe 4 2 scf:add))
+  ))

testing.lisp

@@ -0,0 +1,12 @@
+;;; cl-scopes/testing
+
+;;;; simple testing library
+
+(defpackage :scopes/testing
+  (:use :common-lisp)
+  (:export #:test-suite))
+
+(in-package :scopes/testing)
+
+(defun test-suite ()
+  nil)