Commit a1936282 authored by Dave Cooper's avatar Dave Cooper

added drakma

parent e3e41a26
"(:bordeaux-threads :glisp #+ccl :aserve #-ccl :paserve :yason)"
"(:bordeaux-threads :drakma :glisp #+ccl :aserve #-ccl :paserve :yason)"
......@@ -4,7 +4,7 @@
"The Gendl® Generative Web Language (GWL)" :author "John McCarthy"
:license "Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial t :version "20161125" :depends-on
(:bordeaux-threads :glisp #+ccl :aserve #-ccl :paserve :yason)
(:bordeaux-threads :drakma :glisp #+ccl :aserve #-ccl :paserve :yason)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings )
#+asdf-unicode :defsystem-depends-on #+asdf-unicode ()
#+asdf-encodings :encoding #+asdf-encodings :utf-8
......
......@@ -62,8 +62,13 @@
(ignore-errors
(glisp:with-timeout (2 (error "AllegroServe port probe timed out on port ~a.
Perhaps a zombie process is holding port ~a?~%" port port))
(net.aserve.client:do-http-request
(format nil "http://localhost:~a" port))))
(#+nil
net.aserve.client:do-http-request
drakma:http-request (format nil "http://localhost:~a" port))))
(declare (ignore result))
(when (typep error 'error)
port)))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment