Removed unnecessary "uiop:"s per review.

Author: mgsouth

src/koga/archive.lisp

@@ -84,10 +84,10 @@
            (manifest-temp-path (uiop:tmpize-pathname manifest-path)))
       (message nil "Creating Gentoo/Portage distro files for ~a..." pkg-ver)
       (uiop:ensure-all-directories-exist (list manifest-temp-path))
-      (uiop:with-output-file (mfst-dest manifest-temp-path :if-exists :supersede)
+      (with-open-file (mfst-dest manifest-temp-path :direction :output :if-exists :supersede)
         ;; Copy existing Manifest into temp file, dropping entries we're about
         ;; to create.
-        (uiop:with-input-file (mfst-src manifest-path :if-does-not-exist nil)
+        (with-open-file (mfst-src manifest-path :direction :input :if-does-not-exist nil)
           (when mfst-src
             (loop
               for line = (read-line mfst-src nil nil)
@@ -99,11 +99,12 @@
         (loop for (mfst-type s-os-path  d-os-path) in flist
               when s-os-path
                 do (copy-f s-os-path d-os-path)
-              do (uiop:safe-format! mfst-dest "~a ~a ~d BLAKE2B ~a SHA512 ~a~%"
-                                    mfst-type
-                                    (os-path-fname d-os-path)
-                                    (fbytes d-os-path)
-                                    (calc-hash "blake2b" d-os-path)
-                                    (calc-hash "sha512" d-os-path))))
+              do (with-standard-io-syntax
+                   (format mfst-dest "~a ~a ~d BLAKE2B ~a SHA512 ~a~%"
+                           mfst-type
+                           (os-path-fname d-os-path)
+                           (fbytes d-os-path)
+                           (calc-hash "blake2b" d-os-path)
+                           (calc-hash "sha512" d-os-path)))))
       (uiop:rename-file-overwriting-target manifest-temp-path manifest-path)
       manifest-path)))