Commit 73f81ac6 authored by Eric Timmons's avatar Eric Timmons
Browse files

Make a simple dynamic build work via script or Lake

parent 4931fc3b
......@@ -297,7 +297,7 @@ specified by the tuple."
(task "build" ()
"Build CLPM"
(sh "sbcl --no-sysinit --no-userinit --disable-debugger --load scripts/build.lisp"))
(sh "sbcl --no-sysinit --no-userinit --script scripts/build.lisp"))
(task "package" ()
"Package CLPM"
......
......@@ -19,6 +19,7 @@
:entry-point "clpm-cli/entry:main"
:class "clpm-asdf:clpm-system"
:build-operation "asdf-release-ops:dynamic-program-op"
:build-pathname "../build/bin/clpm"
:defsystem-depends-on (#:clpm-asdf)
:depends-on (#:clpm/clpm
(:feature :clpm-curl #:clpm-multi-http-client-impl/curl)
......
......@@ -5,22 +5,15 @@
(in-package #:cl-user)
(load (merge-pathnames "common.lisp"
*load-truename*))
(load (merge-pathnames "common.lisp" *load-truename*))
(in-package #:clpm-scripts)
(setup-asdf "default")
(setup-asdf)
(format uiop:*stderr*
"I will build CLPM from sources located at ~A~%The built files will be located at ~Abin/~%~%~%"
*root-pathname*
*build-root-pathname*)
(asdf:load-system :clpm-cli)
(when (uiop:featurep :windows)
(uiop:copy-file (merge-pathnames "License.rtf" *root-pathname*)
(merge-pathnames "License.rtf" *build-root-pathname*)))
(asdf:make :clpm-cli)
(asdf:make :clpm)
......@@ -7,8 +7,7 @@
(in-package #:cl-user)
;; Load in ASDF.
(load (merge-pathnames "../ext/asdf.lisp" *load-truename*))
(require :asdf)
(defvar *setup-file-pathname* *load-truename*
"The pathname to this file.")
......
......@@ -8,6 +8,8 @@
(in-package #:clpm-scripts)
(require :asdf)
(defvar *setup-file-pathname* *load-truename*
"The pathname to this file.")
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment