gistfile1.diff

--- ffi.lisp.orig       Mon Sep 15 13:06:11 2008
+++ ffi.lisp    Mon Sep 15 13:04:55 2008
@@ -242,6 +242,7 @@
     (setf *bio-lisp-method* (make-bio-lisp-method))))

 (defun reload ()
+  (cffi:load-foreign-library 'libcrypto)
   (cffi:load-foreign-library 'libssl)
   (setf *ssl-global-context* nil)
   (setf *ssl-global-method* nil))
--- reload.lisp.orig    Mon Sep 15 13:03:38 2008
+++ reload.lisp Mon Sep 15 13:03:52 2008
@@ -19,4 +19,9 @@
   (:windows "libssl32.dll")
   (t (:default "libssl")))

+(cffi:define-foreign-library libcrypto
+  (:windows "libcrypto.dll")
+  (t (:default "libcrypto")))
+
+(cffi:use-foreign-library libcrypto)
 (cffi:use-foreign-library libssl)