1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
;;; cl-pdf copyright 2002-2003 Marc Battyani see license.txt for the details
;;; You can reach me at marc.battyani@fractalconcept.com or marc@battyani.net
;;; The homepage of cl-pdf is here: http://www.fractalconcept.com/asp/html/cl-pdf.html
(in-package #:pdf)
(defvar *zlib-loaded* nil)
(eval-when (:compile-toplevel :load-toplevel :execute)
(defun find-zlib-path* (name)
(uffi:find-foreign-library
name
*zlib-search-paths*
:drive-letters '("C" "D" "E")
:types '("so" "a" "dll" "dylib")))
(defun find-zlib-path ()
(or (find-zlib-path* "libz")
(find-zlib-path* "zlib1"))))
#+(or cmu sbcl)
(eval-when (:compile-toplevel :load-toplevel :execute)
(let ((zlib-path (find-zlib-path)))
(when zlib-path
(format t "~&;;; Loading ~s" zlib-path)
(uffi:load-foreign-library zlib-path
:module "zlib"
:supporting-libraries '("c")))))
|
