Permalink
Browse files

Added SSL/TLS support for mocl

  • Loading branch information...
1 parent 295bc14 commit 876fcfd576dded4ed4d4755837d9a2cef526989f @Wukix Wukix committed Apr 30, 2014
Showing with 7 additions and 2 deletions.
  1. +1 −1 drakma.asd
  2. +6 −1 util.lisp
View
@@ -55,4 +55,4 @@
:flexi-streams
:cl-ppcre
#-:lispworks :usocket
- #-(or :lispworks :allegro :drakma-no-ssl) :cl+ssl))
+ #-(or :lispworks :allegro :mocl-ssl :drakma-no-ssl) :cl+ssl))
View
@@ -328,7 +328,12 @@ which are not meant as separators."
:max-depth max-depth
:ca-file ca-file
:ca-directory ca-directory)
- #+(and (not :allegro) (not :drakma-no-ssl))
+ #+(and :mocl-ssl (not :drakma-no-ssl))
+ (progn
+ (when (or ca-file ca-directory)
+ (warn ":max-depth, :ca-file and :ca-directory arguments not available on this platform"))
+ (rt:start-ssl http-stream :verify verify))
+ #+(and (not :allegro) (not :mocl-ssl) (not :drakma-no-ssl))
(let ((s http-stream))
(when (or verify ca-file ca-directory)
(warn ":verify, :max-depth, :ca-file and :ca-directory arguments not available on this platform"))

0 comments on commit 876fcfd

Please sign in to comment.