File tree Expand file tree Collapse file tree 1 file changed +8
-12
lines changed Expand file tree Collapse file tree 1 file changed +8
-12
lines changed Original file line number Diff line number Diff line change 23
23
24
24
(defun qob-import (url)
25
25
" 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))))
36
33
37
34
; ;
38
35
; ;; Package
39
36
40
37
(defun qob-install-quicklisp ()
41
38
" Install Quicklisp."
42
39
; ; TODO: ..
43
-
44
- )
40
+ (quicklisp-quickstart :install))
45
41
46
42
; ;
47
43
; ;; Verbose
You can’t perform that action at this time.
0 commit comments