diff --git a/lib/install/main.lisp b/lib/install/main.lisp index f286e8a..51d5086 100644 --- a/lib/install/main.lisp +++ b/lib/install/main.lisp @@ -1,7 +1,9 @@ (uiop:define-package :roswell2.cmd.install/main (:use :cl :roswell-bin/util - :roswell2/main) + :roswell2/main + :roswell2.cmd.run + ) (:nicknames :roswell2.cmd.install) (:import-from :clingon)) @@ -20,6 +22,7 @@ "Handler for just evaluate options" (let ((args (clingon:command-arguments cmd))) (message :main-handler "args-for install handler ~S" args) + (message :install-handler "forms: ~S" *forms*) (cond ((null args) ) (t diff --git a/lib/install/roswell2.cmd.install.asd b/lib/install/roswell2.cmd.install.asd index 6b762f7..3d81cc9 100644 --- a/lib/install/roswell2.cmd.install.asd +++ b/lib/install/roswell2.cmd.install.asd @@ -3,6 +3,6 @@ :class :package-inferred-system :version "23.8.15.114" :author "SANO Masatoshi" - :description "Install scripts" + :description "Install scripts from system" :license "MIT" :depends-on (:roswell2.cmd.install/main)) diff --git a/lib/run/main.lisp b/lib/run/main.lisp index 19e5bf4..d9c497f 100644 --- a/lib/run/main.lisp +++ b/lib/run/main.lisp @@ -204,6 +204,7 @@ (ignore-errors (let* ((path (merge-pathnames "roswell.sexp" (impl-path param))) form) + (message :run-impl "read ~S" path) (unless (uiop:file-exists-p path) (message :run-impl "~S seems not exist... try install: ~S" path param) (install param))