Newer
Older
;;; -*- Lisp -*-
(load "script-support")
(load (compile-file-pathname "../asdf"))
(quit-on-error
(setf asdf:*central-registry* '(*default-pathname-defaults*))
(asdf:operate 'asdf:load-op 'static-and-serial)
(defvar file1-date (file-write-date (compile-file-pathname "file1"))))
;; cheat
(setf asdf::*defined-systems* (make-hash-table :test 'equal))