;;; -*- 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")))) (quit-on-error ;; cheat (setf asdf::*defined-systems* (make-hash-table :test 'equal)) ;; date should stay same (sleep 1) (asdf:operate 'asdf:load-op 'static-and-serial) (assert (= (file-write-date (compile-file-pathname "file1")) file1-date)) )