Skip to content

Commit 305764a

Browse files
committed
prep
1 parent 242d59e commit 305764a

File tree

1 file changed

+8
-12
lines changed

1 file changed

+8
-12
lines changed

lisp/_prepare.lisp

Lines changed: 8 additions & 12 deletions
Original file line numberDiff line numberDiff line change
@@ -23,25 +23,21 @@
2323

2424
(defun qob-import (url)
2525
"Load and eval the script from a URL."
26-
(with-open-file (qob-temp-filename
27-
:direction :output
28-
:if-does-not-exist :create
29-
:if-exists :supersede
30-
:element-type '(unsigned-byte 8))
31-
(let ((input (drakma:http-request url
32-
:want-stream t)))
33-
(awhile (read-byte input nil nil)
34-
(write-byte it file))
35-
(close input))))
26+
(let ((bytes (dex:get url)))
27+
(with-open-file (out qob-temp-filename
28+
:direction :output
29+
:if-exists :supersede
30+
:if-does-not-exist :create
31+
:element-type 'unsigned-byte)
32+
(write-sequence bytes out))))
3633

3734
;;
3835
;;; Package
3936

4037
(defun qob-install-quicklisp ()
4138
"Install Quicklisp."
4239
;; TODO: ..
43-
44-
)
40+
(quicklisp-quickstart:install))
4541

4642
;;
4743
;;; Verbose

0 commit comments

Comments
 (0)