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