Skip to content

Instantly share code, notes, and snippets.

@fukamachi
Created March 10, 2017 10:01
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save fukamachi/957ab59a339f9595e40765c4b4d72a7e to your computer and use it in GitHub Desktop.
Save fukamachi/957ab59a339f9595e40765c4b4d72a7e to your computer and use it in GitHub Desktop.
Experimentation for loading CL+SSL on Windows with a custom ssleay32.dll
#!/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:
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment