;;; -*- Lisp -*- ;;; test system def reloading if touched ;;; system that can be found using *system-definition-search-functions* (load "script-support") (load (compile-file-pathname "../asdf")) (quit-on-error (flet ((system-load-time (name) (let ((data (asdf::system-registered-p name))) (when data (car data))))) (setf asdf:*central-registry* '(*default-pathname-defaults*)) (asdf:find-system :test1) (let ((date1 (system-load-time :test1)) (file (namestring (merge-pathnames "test1.asd")))) (assert date1) (assert file) (sleep 1) (asdf:run-shell-command "touch ~a" file) (asdf:find-system :test1) (let ((date2 (system-load-time :test1))) (print (list date1 date2)) (assert date2) (assert (> date2 date1))))))