pkgs/development/lisp-modules/builder.lisp

   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)