diff --git a/cmds/core/build.lisp b/cmds/core/build.lisp index 350158d..84d4532 100644 --- a/cmds/core/build.lisp +++ b/cmds/core/build.lisp @@ -21,7 +21,6 @@ :description "system name" :short-name #\n :long-name "name" - :required t :key :name) (clingon:make-option :string @@ -32,6 +31,7 @@ (defun handler (cmd) "Handler for `build' command." + (format t "~A" clingon:command-arguments) (qob:call-script "core/build")) (defun command () diff --git a/scripts/build.lisp b/scripts/build.lisp index 4838e5f..57e0f86 100644 --- a/scripts/build.lisp +++ b/scripts/build.lisp @@ -9,6 +9,10 @@ (require 'asdf) +(push (concatenate 'string (uiop:getcwd) "extern" + "clingon") + asdf:*central-registry*) + (push '*default-pathname-defaults* asdf:*central-registry*) (asdf:load-system "qob") (asdf:load-system "copy-directory")