Skip to content
Snippets Groups Projects
Commit 49b507fb authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Keep sbcl/windows workaround in asdf-pathname-test without breaking allegro.

parent c138afd5
No related branches found
No related tags found
No related merge requests found
...@@ -122,9 +122,9 @@ ...@@ -122,9 +122,9 @@
(print-condition-backtrace c)) (print-condition-backtrace c))
(return nil)))) (return nil))))
(with-open-file (stream (component-pathname file) (with-open-file (stream (component-pathname file)
:direction :output :if-exists :rename-and-delete :direction :output :if-exists
(or #+(and sbcl os-windows) :rename-and-delete :supersede)
:if-does-not-exist :error) :if-does-not-exist :error)
;; SBCL on Windows hates :supersede here
(print start-time stream) (print start-time stream)
t))) t)))
(incf file-failures) (incf file-failures)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment