Make editor more easily started and used via Roswell-installed Lisp

asdf-paths.lisp

@@ -0,0 +1,7 @@
+(in-package #:cl-user)
+
+(require '#:asdf)
+
+(asdf:initialize-source-registry
+ '(:source-registry (:tree :here)
+   :inherit-configuration))

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*)))

editor/package.lisp

@@ -1,4 +1,5 @@
 ;;;; package.lisp
 
 (defpackage #:editor
-  (:use #:cl #:trivial-gray-streams))
+  (:use #:cl #:trivial-gray-streams)
+  (:export #:main))