aboutsummaryrefslogtreecommitdiff
path: root/bob.lisp
diff options
context:
space:
mode:
authorAryadev Chavali <aryadev@aryadevchavali.com>2025-02-10 09:01:02 +0000
committerAryadev Chavali <aryadev@aryadevchavali.com>2025-02-11 00:40:19 +0000
commit5c6d444c2e73d6154a16ae9380662c2c75c6eafd (patch)
tree2fd9a9cee21ea2c4082cb338dc4f06c6bd583047 /bob.lisp
parent279437cb81478bc5807674d15120fb38f7ebc3c3 (diff)
downloadcantedraw-5c6d444c2e73d6154a16ae9380662c2c75c6eafd.tar.gz
cantedraw-5c6d444c2e73d6154a16ae9380662c2c75c6eafd.tar.bz2
cantedraw-5c6d444c2e73d6154a16ae9380662c2c75c6eafd.zip
Reworked build.lisp and load.lisp into bob.lisp
bob.lisp quickloads the dependencies necessary and defines functions which I can just call from my REPL to load or build the project. Better than loading the file over and over again. Affectionately named after "Bob The Builder".
Diffstat (limited to 'bob.lisp')
-rw-r--r--bob.lisp36
1 files changed, 36 insertions, 0 deletions
diff --git a/bob.lisp b/bob.lisp
new file mode 100644
index 0000000..12146f6
--- /dev/null
+++ b/bob.lisp
@@ -0,0 +1,36 @@
+;;; bob.lisp - 2025-02-10
+
+;; Copyright (C) 2025 Aryadev Chavali
+
+;; This program is distributed in the hope that it will be useful, but WITHOUT
+;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+;; FOR A PARTICULAR PURPOSE. See the GNU General Public License Version 2 for
+;; details.
+
+;; You may distribute and modify this code under the terms of the GNU General
+;; Public License Version 2, which you should have received a copy of along with
+;; this program. If not, please go to <https://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; Little bit of code scaffolding that makes it easy to load or build the
+;; system. Named after "Bob the Builder".
+
+;;; Code:
+
+(defpackage bob
+ (:use :cl)
+ (:export
+ :build :load-all))
+
+(in-package :bob)
+
+(ql:quickload :deploy)
+(asdf:load-asd (merge-pathnames "odraw.asd" (uiop:getcwd)))
+
+(defun build ()
+ (push :deploy-console *features*)
+ (asdf:make :odraw))
+
+(defun load-all ()
+ (asdf:load-system :odraw))