packages.lisp (781 bytes)
1 (defpackage :workaround 2 (:use :cl) 3 (:export :http-request)) 4 (defpackage :librivox 5 (:use :cl 6 ;; Workaround for cl+ssl not working 7 #+cl+ssl-broken :workaround 8 #-cl+ssl-broken :drakma 9 :utils :uiop :bordeaux-threads) 10 #+cl+ssl-broken (:import-from :workaround :http-request) 11 #-cl+ssl-broken (:import-from :drakma :http-request) 12 (:import-from 13 :utils 14 :mvbind :dbind :dolines 15 :with-gensyms 16 :once-only 17 :aif 18 :awhen 19 :select 20 :run-line) 21 (:import-from :uiop :subdirectories :directory-files) 22 (:import-from 23 :bordeaux-threads 24 :make-thread 25 :make-lock 26 :join-thread 27 :thread-yield 28 :make-condition-variable 29 :condition-wait 30 :condition-notify 31 :all-threads 32 :thread-alive-p 33 :destroy-thread 34 :interrupt-thread 35 :join-thread))