XCVB support (by Fare <fahree@gmail.com>)
parent
26774a0dd2
commit
d281b98717
2
bio.lisp
2
bio.lisp
|
@ -2,6 +2,8 @@
|
|||
;;;
|
||||
;;; See LICENSE for details.
|
||||
|
||||
#+xcvb (module (:depends-on ("package")))
|
||||
|
||||
(in-package cl+ssl)
|
||||
|
||||
(defconstant +bio-type-socket+ (logior 5 #x0400 #x0100))
|
||||
|
|
|
@ -0,0 +1,25 @@
|
|||
;;; -*- mode: lisp -*-
|
||||
;;;
|
||||
;;; Copyright (C) 2001, 2003 Eric Marsden
|
||||
;;; Copyright (C) 2005 David Lichteblau
|
||||
;;; Copyright (C) 2007 Pixel // pinterface
|
||||
;;; "the conditions and ENSURE-SSL-FUNCALL are by Jochen Schmidt."
|
||||
;;;
|
||||
;;; See LICENSE for details.
|
||||
|
||||
|
||||
#+xcvb
|
||||
(module
|
||||
(:fullname "cl+ssl"
|
||||
:depends-on ("package"
|
||||
"reload"
|
||||
"conditions"
|
||||
"ffi"
|
||||
"ffi-buffer-all"
|
||||
(:cond ((:featurep :clisp) "ffi-buffer-clisp")
|
||||
((:featurep (:not :clisp)) "ffi-buffer"))
|
||||
"streams"
|
||||
"bio")
|
||||
:build-depends-on ("flexi-streams" "trivial-gray-streams" "cffi")
|
||||
:supersedes-asdf ("cl+ssl")))
|
||||
|
|
@ -4,6 +4,8 @@
|
|||
;;;
|
||||
;;; See LICENSE for details.
|
||||
|
||||
#+xcvb (module (:depends-on ("package")))
|
||||
|
||||
(in-package :cl+ssl)
|
||||
|
||||
(eval-when (:compile-toplevel :load-toplevel :execute)
|
||||
|
|
|
@ -1,3 +1,5 @@
|
|||
#+xcvb (module (:depends-on ("package")))
|
||||
|
||||
(in-package :cl+ssl)
|
||||
|
||||
(defconstant +initial-buffer-size+ 2048)
|
||||
|
|
|
@ -1,3 +1,5 @@
|
|||
#+xcvb (module (:depends-on ("package" "reload" "conditions" "ffi" "ffi-buffer-all")))
|
||||
|
||||
(in-package :cl+ssl)
|
||||
|
||||
(defun make-buffer (size)
|
||||
|
|
|
@ -1,3 +1,5 @@
|
|||
#+xcvb (module (:depends-on ("package")))
|
||||
|
||||
(in-package :cl+ssl)
|
||||
|
||||
(defun make-buffer (size)
|
||||
|
|
2
ffi.lisp
2
ffi.lisp
|
@ -4,6 +4,8 @@
|
|||
;;;
|
||||
;;; See LICENSE for details.
|
||||
|
||||
#+xcvb (module (:depends-on ("package" "conditions")))
|
||||
|
||||
(eval-when (:compile-toplevel)
|
||||
(declaim
|
||||
(optimize (speed 3) (space 1) (safety 1) (debug 0) (compilation-speed 0))))
|
||||
|
|
|
@ -4,6 +4,8 @@
|
|||
;;;
|
||||
;;; See LICENSE for details.
|
||||
|
||||
#+xcvb (module (:depends-on ((:when (:featurep :sbcl) (:require :sb-posix)))))
|
||||
|
||||
(in-package :cl-user)
|
||||
|
||||
(defpackage :cl+ssl
|
||||
|
|
|
@ -13,6 +13,8 @@
|
|||
;;; - but not every time ffi.lisp is re-loaded as would happen if we
|
||||
;;; put this directly into ffi.lisp
|
||||
|
||||
#+xcvb (module (:depends-on ("package")))
|
||||
|
||||
(in-package :cl+ssl)
|
||||
|
||||
(cffi:define-foreign-library libssl
|
||||
|
|
|
@ -5,6 +5,12 @@
|
|||
;;;
|
||||
;;; See LICENSE for details.
|
||||
|
||||
#+xcvb
|
||||
(module
|
||||
(:depends-on ("package" "conditions" "ffi"
|
||||
(:cond ((:featurep :clisp) "ffi-buffer-clisp")
|
||||
(t "ffi-buffer")))))
|
||||
|
||||
(eval-when (:compile-toplevel)
|
||||
(declaim
|
||||
(optimize (speed 3) (space 1) (safety 1) (debug 0) (compilation-speed 0))))
|
||||
|
|
Loading…
Reference in New Issue