Change MAP NIL to DOLIST in build-app.lisp

quil-lang · Sep 22, 2020 · c292f76 · c292f76
1 parent cb85240
commit c292f76
Showing 1 changed file with 3 additions and 5 deletions.
diff --git a/build-app.lisp b/build-app.lisp
@@ -44,11 +44,9 @@
     ;; Load systems defined by environment variable $ASDF_SYSTEMS_TO_LOAD,
     ;; or if that does not exist just load quilc
     (let ((systems (uiop:getenv "ASDF_SYSTEMS_TO_LOAD")))
-      (map nil (lambda (sys)
-                 (unless (uiop:emptyp sys)
-                   (asdf:load-system sys)))
-           (uiop:split-string (or systems "quilc")
-                              :separator " ")))
+      (dolist (sys (uiop:split-string (or systems "quilc") :separator " "))
+        (unless (uiop:emptyp sys)
+          (asdf:load-system sys))))
     ;; TODO Fix tweedledum
     ;; #-win32
     ;; (asdf:load-system "cl-quil/tweedledum")