initial import
This commit is contained in:
commit
7c321b76aa
3 changed files with 47 additions and 0 deletions
18
forge/forge.lisp
Normal file
18
forge/forge.lisp
Normal file
|
@ -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)))
|
||||
|
17
scopes.asd
Normal file
17
scopes.asd
Normal file
|
@ -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"))))
|
||||
|
12
storage/tracking.lisp
Normal file
12
storage/tracking.lisp
Normal file
|
@ -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)))
|
||||
|
Loading…
Add table
Reference in a new issue