commit 7c321b76aacb2bbc132cafdb5457381c44d47e75 Author: Helmut Merz Date: Thu Apr 18 19:46:47 2024 +0200 initial import diff --git a/forge/forge.lisp b/forge/forge.lisp new file mode 100644 index 0000000..0a05665 --- /dev/null +++ b/forge/forge.lisp @@ -0,0 +1,18 @@ +;;; cl-scopes/forge - may the forge be with you! + +;;;; A Forth-like interpreter implemented in Common Lisp. + +(defpackage :scopes/forge + (:nicknames :scf) + (:use :common-lisp) + (:export #:hello)) + +(in-package :scopes/forge) + +(defun hello () + (format t "Hello Common Lisp - 2024-04-18")) + +(defclass track () ( + (taskid :initarg :taskid) + (username :initarg :username))) + diff --git a/scopes.asd b/scopes.asd new file mode 100644 index 0000000..e115c71 --- /dev/null +++ b/scopes.asd @@ -0,0 +1,17 @@ +(in-package #:asdf-user) + +(defsystem :scopes + :author "" + :maintainer "" + :license "MIT" + :version "0.0.1" + :homepage "https://www.cyberconcepts.org" + :description "" + :depends-on (:str) + :components ((:file "forge/forge")) + + :long-description "scopes: generic data processingg facilities") + ;;#.(uiop:read-file-string + ;; (uiop:subpathname *load-pathname* "README.md"))) + ;;:in-order-to ((test-op (test-op "scopes/test")))) + diff --git a/storage/tracking.lisp b/storage/tracking.lisp new file mode 100644 index 0000000..6274cab --- /dev/null +++ b/storage/tracking.lisp @@ -0,0 +1,12 @@ +;;; cl-scopes/forge - may the forge be with you! + +;;;; A Forth-like interpreter implemented in Common Lisp. + + +(defun hello () + (format t "Hello Common Lisp - changed!")) + +(defclass track () ( + (taskid :initarg :taskid) + (username :initarg :username))) +