2005-11-09 22:10:44 +00:00
|
|
|
;;; Copyright (C) 2001, 2003 Eric Marsden
|
|
|
|
;;; Copyright (C) 2005 David Lichteblau
|
|
|
|
;;; "the conditions and ENSURE-SSL-FUNCALL are by Jochen Schmidt."
|
|
|
|
;;;
|
|
|
|
;;; See LICENSE for details.
|
|
|
|
|
2009-10-24 20:09:40 +00:00
|
|
|
#+xcvb (module (:depends-on ((:when (:featurep :sbcl) (:require :sb-posix)))))
|
|
|
|
|
2005-11-09 22:10:44 +00:00
|
|
|
(in-package :cl-user)
|
|
|
|
|
|
|
|
(defpackage :cl+ssl
|
|
|
|
(:use :common-lisp :trivial-gray-streams)
|
|
|
|
(:export #:ensure-initialized
|
2005-11-16 17:07:53 +00:00
|
|
|
#:reload
|
2008-11-03 09:21:16 +00:00
|
|
|
#:stream-fd
|
|
|
|
#:make-ssl-client-stream
|
2008-11-03 17:58:45 +00:00
|
|
|
#:make-ssl-server-stream
|
2011-05-22 21:19:41 +00:00
|
|
|
#:use-certificate-chain-file
|
2011-09-14 21:29:00 +00:00
|
|
|
#:random-bytes
|
|
|
|
#:ssl-check-verify-p
|
|
|
|
#:ssl-load-global-verify-locations
|
2011-09-14 21:57:28 +00:00
|
|
|
#:ssl-set-global-default-verify-paths
|
2011-09-14 21:29:00 +00:00
|
|
|
#:ssl-error-verify
|
|
|
|
#:ssl-error-stream
|
|
|
|
#:ssl-error-code))
|