Amr Gharbeia
43dbe3cf2d
Some checks failed
Deploy-Agent-V15-Stdin / JOB-V15-STDIN (push) Failing after 8s
- Fix critical paren balance issues across harness/skills.org, act.org, loop.org, memory.org, and skills/self-edit|emacs-edit.org - Add :reload-skill cognitive tool for hot-reloading without restart - Add :generate-embeddings tool and self-edit hot-reload infrastructure - Wire all new skills (self-edit, emacs-edit, lisp-utils) into main ASDF - Regenerate all .lisp tangled files via emacs --batch org-babel-tangle - Add :opencortex/tests ASDF system with 14 test suites - Fix test files to compile cleanly (self-edit-tests symbol vis, etc.)
85 lines
4.3 KiB
Common Lisp
85 lines
4.3 KiB
Common Lisp
(defsystem :opencortex
|
|
:name "opencortex"
|
|
:author "Amr"
|
|
:version "0.1.0"
|
|
:license "AGPLv3"
|
|
:description "The Probabilistic-Deterministic Lisp Machine Harness"
|
|
|
|
:depends-on (:usocket ; TCP socket networking
|
|
:bordeaux-threads ; Threading (heartbeat, async sensors)
|
|
:dexador ; HTTP client (LLM APIs)
|
|
:uiop ; Portable I/O, file operations
|
|
:cl-dotenv ; Environment variable loading
|
|
:cl-ppcre ; Regular expressions (parsing)
|
|
:hunchentoot ; HTTP server (optional web interface)
|
|
:ironclad ; Cryptography (Merkle hashing)
|
|
:str ; String utilities
|
|
:cl-json ; JSON parsing/serialization
|
|
:uuid) ; UUID generation for org-mode IDs
|
|
|
|
:serial t ; Load files in order listed below
|
|
|
|
:components ((:file "library/package") ; Package definitions, core vars
|
|
(:file "library/skills") ; Skill engine, cognitive tools
|
|
(:file "library/communication") ; Protocol, framing
|
|
(:file "library/communication-validator") ; Schema validation
|
|
(:file "library/memory") ; Org-object store, snapshots
|
|
(:file "library/context") ; Context assembly, query
|
|
(:file "library/perceive") ; Stage 1: Sensory normalization
|
|
(:file "library/reason") ; Stage 2: Neural + deterministic
|
|
(:file "library/act") ; Stage 3: Actuation
|
|
(:file "library/loop")) ; Main entry, heartbeat
|
|
|
|
:build-operation "program-op"
|
|
:build-pathname "opencortex-server"
|
|
:entry-point "opencortex:main")
|
|
|
|
(defsystem :opencortex/tests
|
|
:depends-on (:opencortex ; The harness we're testing
|
|
:fiveam) ; Testing framework
|
|
|
|
:components ((:file "library/gen/org-skill-engineering-standards")
|
|
(:file "library/gen/org-skill-literate-programming")
|
|
(:file "library/gen/org-skill-self-edit")
|
|
(:file "library/gen/org-skill-emacs-edit")
|
|
(:file "library/gen/org-skill-lisp-utils")
|
|
(:file "tests/engineering-standards-tests")
|
|
(:file "tests/literate-programming-tests")
|
|
(:file "tests/pipeline-perceive-tests")
|
|
(:file "tests/pipeline-reason-tests")
|
|
(:file "tests/pipeline-act-tests")
|
|
(:file "tests/act-tests")
|
|
(:file "tests/boot-sequence-tests")
|
|
(:file "tests/memory-tests")
|
|
(:file "tests/immune-system-tests")
|
|
(:file "tests/emacs-edit-tests")
|
|
(:file "tests/lisp-utils-tests")
|
|
(:file "tests/lisp-validator-tests")
|
|
(:file "tests/self-edit-tests")
|
|
(:file "tests/tool-permissions-tests")
|
|
(:file "tests/peripheral-vision-tests"))
|
|
|
|
:perform (test-op (o s)
|
|
(uiop:symbol-call :fiveam :run!
|
|
(uiop:find-symbol* :communication-protocol-suite :opencortex-tests))
|
|
(uiop:symbol-call :fiveam :run!
|
|
(uiop:find-symbol* :pipeline-suite :opencortex-pipeline-tests))
|
|
(uiop:symbol-call :fiveam :run!
|
|
(uiop:find-symbol* :boot-suite :opencortex-boot-tests))
|
|
(uiop:symbol-call :fiveam :run!
|
|
(uiop:find-symbol* :memory-suite :opencortex-memory-tests))
|
|
(uiop:symbol-call :fiveam :run!
|
|
(uiop:find-symbol* :immune-suite :opencortex-immune-system-tests))
|
|
(uiop:symbol-call :fiveam :run!
|
|
(uiop:find-symbol* :emacs-edit-suite :opencortex-emacs-edit-tests))
|
|
(uiop:symbol-call :fiveam :run!
|
|
(uiop:find-symbol* :lisp-utils-suite :opencortex-lisp-utils-tests))))
|
|
|
|
(defsystem :opencortex/tui
|
|
:depends-on (:opencortex ; The daemon we're connecting to
|
|
:croatoan ; Terminal UI library
|
|
:usocket ; Socket communication
|
|
:bordeaux-threads) ; Background listening thread
|
|
|
|
:components ((:file "library/tui-client")))
|