| ;;; | |
| ;;; Copyright (c) 2026 BEL ESPRIT D ACCORD TRUST HOLDINGS INC | |
| ;;; All rights reserved. | |
| ;;; run.lisp - Entry point for Marlborg-WORM agent | |
| ;;; Usage: sbcl --load run.lisp | |
| (require :asdf) | |
| (push (truename ".") asdf:*central-registry*) | |
| (asdf:load-system "marlborg-worm") | |
| (in-package :marlborg.worm.primitives) | |
| (format t "~%========================================~%") | |
| (format t " MARLBORG-WORM Self-Modifying Agent~%") | |
| (format t " Pure Lisp Crypto + WORM Chain~%") | |
| (format t " Fixed-Point Convergence Guaranteed~%") | |
| (format t "========================================~%~%") | |
| (initialize-agent) | |