Amr Gharbeia
ce90fd3e72
Some checks failed
Deploy (Gitea) / deploy (push) Has been cancelled
Root cause chain: 1. proto-get was used throughout the pipeline but never defined — added to core-communication.org as a keyword-normalizing getf wrapper. 2. security-dispatcher.lisp was loaded by skill-initialize-all into a separate package, making HITL functions invisible to :passepartout. Fixed by adding to ASDF component list and excluding from skill loader. 3. org-id-generate was referenced from hitl-create but lives in an unexported skill package — replaced with uuid:make-v4-uuid. 4. uiop:string-prefix-p was called with :test keyword argument it does not accept — replaced with string-downcase normalization on both sides. Also: - Export hitl-create, hitl-approve, hitl-deny, hitl-handle-message, stimulus-inject from :passepartout for REPL accessibility.
38 lines
1.5 KiB
Common Lisp
38 lines
1.5 KiB
Common Lisp
(defsystem :passepartout
|
|
:name "Passepartout"
|
|
:author "Amr Gharbeia"
|
|
:version "0.3.0"
|
|
:license "AGPLv3"
|
|
:description "The Probabilistic-Deterministic Lisp Machine"
|
|
:depends-on (:usocket :bordeaux-threads :dexador :uiop :cl-dotenv :cl-ppcre :hunchentoot :ironclad :str :cl-json :uuid)
|
|
:serial t
|
|
:components ((:file "lisp/core-defpackage")
|
|
(:file "lisp/core-skills")
|
|
(:file "lisp/core-communication")
|
|
(:file "lisp/core-memory")
|
|
(:file "lisp/core-context")
|
|
(:file "lisp/security-dispatcher")
|
|
(:file "lisp/core-loop-perceive")
|
|
(:file "lisp/core-loop-reason")
|
|
(:file "lisp/core-loop-act")
|
|
(:file "lisp/core-loop")))
|
|
|
|
(defsystem :passepartout/tests
|
|
:depends-on (:passepartout :fiveam)
|
|
:components ((:file "tests/pipeline-act-tests")
|
|
(:file "tests/boot-sequence-tests")
|
|
(:file "tests/communication-tests")
|
|
(:file "tests/immune-system-tests")
|
|
(:file "tests/memory-tests")
|
|
(:file "tests/pipeline-perceive-tests")
|
|
(:file "tests/pipeline-reason-tests")
|
|
(:file "tests/peripheral-vision-tests")
|
|
(:file "tests/tui-tests")
|
|
(:file "tests/utils-org-tests")
|
|
(:file "tests/utils-lisp-tests")
|
|
(:file "tests/llm-gateway-tests")))
|
|
|
|
(defsystem :passepartout/tui
|
|
:depends-on (:passepartout :croatoan :usocket :bordeaux-threads)
|
|
:components ((:file "lisp/gateway-tui")))
|