Fix the feature keyword for Windows.

'#+windows' is available only when trivial-features is loaded.

qlot.asd

@@ -10,7 +10,6 @@
 (defsystem "qlot/tests"
   :class :package-inferred-system
   :depends-on ("rove"
-               "trivial-features"
                "qlot/tests/parser"
                "qlot/tests/distify/ql"
                "qlot/tests/distify/git"

tests/utils.lisp

@@ -6,10 +6,10 @@
 
 (deftest with-in-directory-tests
   (let ((cwd (uiop:getcwd)))
-    #+windows
+    #+(or mswindows win32)
     (with-in-directory #P"C:/"
       (ok (equal (uiop:native-namestring (uiop:getcwd)) "C:\\\\")))
-    #-windows
+    #-(or mswindows win32)
     (with-in-directory #P"/"
       (ok (equal (uiop:getcwd) #P"/")))
     (ok (equal (uiop:getcwd) cwd))))

utils/git.lisp

@@ -14,6 +14,13 @@
 (defun git-clone (remote-url destination &key (checkout-to "master") ref)
   (tagbody git-cloning
     (when (uiop:directory-exists-p destination)
+      #+(or mswindows win32)
+      (uiop:run-program (list "attrib"
+                              "-r" "-h"
+                              (format nil "~A*.*" (uiop:native-namestring destination))
+                              "/s" "/d")
+                        :error-output *error-output*
+                        :ignore-error-status t)
       (uiop:delete-directory-tree destination :validate t))
     (restart-case
         (safety-shell-command "git"

utils/tmp.lisp

@@ -15,7 +15,7 @@
 (defmacro with-tmp-directory ((tmp-dir &key (prefix "qlot-")) &body body)
   `(let ((,tmp-dir (tmp-directory ,prefix)))
      (unwind-protect (progn ,@body)
-       #+windows
+       #+(or mswindows win32)
        (uiop:run-program (list "attrib"
                                "-r" "-h"
                                (format nil "~A*.*" (uiop:native-namestring ,tmp-dir))