From 2e1ca6192e4914fbe7ef259ba97291d0c57a4cda Mon Sep 17 00:00:00 2001
From: John Lorentzson <john_lorentzson@yahoo.com>
Date: Mon, 28 Jul 2025 15:45:32 +0200
Subject: [PATCH] Make editor more easily started and used via
 Roswell-installed Lisp

---
 asdf-paths.lisp          | 7 +++++++
 editor/binary-build.lisp | 4 ++--
 editor/package.lisp      | 3 ++-
 3 files changed, 11 insertions(+), 3 deletions(-)
 create mode 100644 asdf-paths.lisp

diff --git a/asdf-paths.lisp b/asdf-paths.lisp
new file mode 100644
index 0000000..3519af2
--- /dev/null
+++ b/asdf-paths.lisp
@@ -0,0 +1,7 @@
+(in-package #:cl-user)
+
+(require '#:asdf)
+
+(asdf:initialize-source-registry
+ '(:source-registry (:tree :here)
+   :inherit-configuration))
diff --git a/editor/binary-build.lisp b/editor/binary-build.lisp
index 14ee53a..40a8db4 100644
--- a/editor/binary-build.lisp
+++ b/editor/binary-build.lisp
@@ -8,7 +8,7 @@ open it, check which pts it's running on using \"ps\", run a command like
 \"clear; while true; do sleep 1000;done\", then start the editor in another
 terminal giving the pts as a command-line parameter.~%"))
 
-(defun main (arguments)
+(defun main (&rest arguments)
   (format t "C64 Livecoding editor, v~A~%"
           #.(asdf:component-version (asdf:find-system '#:user-side-compiler)))
   (let ((tty (and (first arguments)
@@ -25,7 +25,7 @@ terminal giving the pts as a command-line parameter.~%"))
       ((abort
          (lambda ()
            (sb-ext:exit :code -1))))
-    (main (uiop:command-line-arguments))))
+    (apply #'main (uiop:command-line-arguments))))
 
 (defun build ()
   (assert (not (member :swank *features*)))
diff --git a/editor/package.lisp b/editor/package.lisp
index ad46bb0..8a22b55 100644
--- a/editor/package.lisp
+++ b/editor/package.lisp
@@ -1,4 +1,5 @@
 ;;;; package.lisp
 
 (defpackage #:editor
-  (:use #:cl #:trivial-gray-streams))
+  (:use #:cl #:trivial-gray-streams)
+  (:export #:main))