Small change to utilities

abraemer · Dec 23, 2018 · c1b88a8 · c1b88a8
1 parent 18b63b1
commit c1b88a8
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/advent-of-code-2018.asd b/advent-of-code-2018.asd
@@ -6,7 +6,7 @@
   :license  "Specify license here"
   :version "0.0.1"
   :serial t
-  :depends-on ("cl-ppcre")
+  :depends-on ("cl-ppcre" "drakma")
   :components ((:file "package")
                (:file "utilities")
                (:file "day1")

diff --git a/utilities.lisp b/utilities.lisp
@@ -5,7 +5,6 @@
 (defconstant +path+ "D:/Daten/lisp/advent-of-code-2018/inputs/")
 
 (defun download-puzzle-input (day file)
-  (ql:quickload :drakma)
   (let ((session-file (puzzlepath "session.txt"))
         (cookie-jar (make-instance 'drakma:cookie-jar)))
     (unless (probe-file session-file)
@@ -18,7 +17,8 @@
           (drakma:cookie-jar-cookies cookie-jar))
     (destructuring-bind (body code . stuff)
         (multiple-value-list
-         (drakma:http-request (format nil "https://adventofcode.com/2018/day/~d/input" day) :cookie-jar jar))
+         (drakma:http-request (format nil "https://adventofcode.com/2018/day/~d/input" day)
+                              :cookie-jar cookie-jar))
       (unless (= code 200)
         (format t "Somnething went wrong! Return status code: ~a (~a)~%" code (first (last stuff)))
         (return-from download-puzzle-input))