Commit 57e33d18 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Tweak test-stamp-propagation so it's more robust on e.g. Windows

parent d62e1911
......@@ -105,17 +105,19 @@
(format t "~&EVAL-NOTES ~S~%" n)
(defun touch (filename)
#+genera filename ;; do something with it!
(uiop:run-program `("touch" ,(native-namestring filename))
:output t :error-output t))
(defun touch-file1.lisp ()
(touch-file (asdf::subpathname *tsp* "file1.lisp")
:in-filesystem t))
(touch (asdf::subpathname *tsp* "file1.lisp")))
(defun touch-file1.fasl (&optional (defsystem *default-defsystem*))
(touch-file (funcall
(case defsystem (:asdf 'asdf::compile-file-pathname*) (t 'compile-file-pathname))
(asdf::subpathname *tsp* "file1.lisp"))
:in-filesystem t))
(touch (funcall
(case defsystem (:asdf 'asdf::compile-file-pathname*) (t 'compile-file-pathname))
(asdf::subpathname *tsp* "file1.lisp"))))
(defun sanitize-log (log)
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment