Skip to content
Snippets Groups Projects
Commit cf599ede authored by Dave Cooper's avatar Dave Cooper Committed by Francois-Rene Rideau
Browse files

add sleep time to be sure about file timestamps esp. for Windows

parent 46f7a2e5
No related branches found
No related tags found
No related merge requests found
...@@ -143,14 +143,16 @@ ...@@ -143,14 +143,16 @@
(clear-fasls defsystem) (clear-fasls defsystem)
(DBG "loading system") (DBG "loading system")
(reload defsystem) (reload defsystem)
(sleep 2) ;; TODO: on ASDF at least, instead touch the file stamp with the cache. #-os-windows (sleep 3) ;; TODO: on ASDF at least, instead touch the file stamp with the cache.
#+os-windows (sleep 5) ;; TODO: on ASDF at least, instead touch the file stamp with the cache.
(DBG "touching first source file and reloading") (DBG "touching first source file and reloading")
(DBG "defsystem should recompile & reload everything") (DBG "defsystem should recompile & reload everything")
(touch-file1.lisp) (touch-file1.lisp)
(assert-equal (sanitize-log (reload defsystem)) (assert-equal (sanitize-log (reload defsystem))
'((:compiling :system) (:compile-toplevel :file1) (:load-toplevel :file1) '((:compiling :system) (:compile-toplevel :file1) (:load-toplevel :file1)
(:compile-toplevel :file2) (:load-toplevel :file2))) (:compile-toplevel :file2) (:load-toplevel :file2)))
(sleep 2) #-os-windows (sleep 3)
#+os-windows (sleep 5)
(DBG "touching first fasl file and reloading") (DBG "touching first fasl file and reloading")
(DBG "defsystem should reload it, recompile & reload the other") (DBG "defsystem should reload it, recompile & reload the other")
(touch-file1.fasl defsystem) (touch-file1.fasl defsystem)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment