pyrox.dev
1(defpackage :nix-cl-user
2 (:use :cl))
3
4(in-package :nix-cl-user)
5
6(load "@asdf@")
7
8(defun load-systems ()
9 (handler-case
10 (let ((systems (uiop:getenv "systems")))
11 (dolist (s (uiop:split-string systems :separator " "))
12 (asdf:load-system s)))
13 (error (c)
14 (format t "BUILD FAILED: ~A~%" c)
15 (uiop:quit 1)))
16 (uiop:quit 0))
17
18(load-systems)