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 @@ ...@@ -105,17 +105,19 @@
(format t "~&EVAL-NOTES ~S~%" n) (format t "~&EVAL-NOTES ~S~%" n)
n)) n))
#-genera (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 () (defun touch-file1.lisp ()
(touch-file (asdf::subpathname *tsp* "file1.lisp") (touch (asdf::subpathname *tsp* "file1.lisp")))
:in-filesystem t))
(defun touch-file1.fasl (&optional (defsystem *default-defsystem*)) (defun touch-file1.fasl (&optional (defsystem *default-defsystem*))
(touch-file (funcall (touch (funcall
(case defsystem (:asdf 'asdf::compile-file-pathname*) (t 'compile-file-pathname)) (case defsystem (:asdf 'asdf::compile-file-pathname*) (t 'compile-file-pathname))
(asdf::subpathname *tsp* "file1.lisp")) (asdf::subpathname *tsp* "file1.lisp"))))
:in-filesystem t))
(defun sanitize-log (log) (defun sanitize-log (log)
(remove-duplicates (remove-duplicates
Markdown is supported
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