Hash :
408808cf
Author :
Thomas de Grivel
Date :
2022-11-03T21:12:39
;; Adams - UNIX system administration tool written in Common Lisp
;; Copyright 2013-2022 Thomas de Grivel <thodg@kmx.io>
(in-package :common-lisp-user)
(declaim (optimize (speed 1)
(space 1)
(safety 3)
(debug 3)
(compilation-speed 0)))
(defun compile-lisp (path)
(let* ((fasl (make-pathname :type "fasl" :defaults path))
(fasl (merge-pathnames fasl)))
(print fasl)
(unless (and (probe-file fasl)
(<= (file-write-date path)
(file-write-date fasl)))
(print path)
(compile-file path :output-file fasl))
(load fasl)))
(defun load* (path)
(format t "~&Loading ~S" path)
(load path))
(load* "config.lisp")
(load* "build/systems.lisp")
(load* "toplevel.lisp")