;;; -*- Lisp -*- (load "script-support") (load-asdf) (quit-on-error (setf asdf:*central-registry* '(*default-pathname-defaults*)) ;;(trace asdf:operation-done-p asdf::safe-file-write-date) (asdf:operate 'asdf:load-op 'static-and-serial) (let* ((file1 (asdf:compile-file-pathname* "file1")) (file1-date (file-write-date file1)) (asdf::*defined-systems* (make-hash-table :test 'equal))) ;; cheat ;; date should stay same (sleep 1) (asdf:operate 'asdf:load-op 'static-and-serial) (assert (= (file-write-date file1) file1-date))))