Experimentation for loading CL+SSL on Windows with a custom ssleay32.dll

clssl.ros

#!/bin/sh
#|-*- mode:lisp -*-|#
#| Experimentation for loading CL+SSL on Windows with a custom ssleay32.dll
exec ros -Q -- $0 "$@"
|#

#|
NOTE: Put ssleay32.dll at the same directory as this script.
|#

(progn ;;init forms
  (ros:ensure-asdf)
  (ql:quickload '(:cffi) :silent t))

;; Add this directory to CFFI:*FOREIGN-LIBRARY-DIRECTORIES*.
(eval-when (:compile-toplevel :load-toplevel :execute)
  (setf cffi:*foreign-library-directories*
        (append `(,(uiop:pathname-directory-pathname *load-pathname*))
                cffi:*foreign-library-directories*)))

(defpackage :ros.script.clssl.3698096176
  (:use :cl))
(in-package :ros.script.clssl.3698096176)

(defun main (&rest argv)
  (declare (ignorable argv))
  (format t "~&~S~%" cffi:*foreign-library-directories*)
  ;-> (#P"C:/Users/nitro_idiot/Desktop/")

  (ql:quickload '(:cl+ssl) :silent t)
  ;-> Raises
  (format t "~&ok~%"))
;;; vim: set ft=lisp lisp: