Sun Dec 13 11:17:08 CET 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* Update to the new Smoke ABI (v.3)

--- old-smoke/src/smoke.lisp 2014-10-30 08:10:04.000000000 +0100

+++ new-smoke/src/smoke.lisp 2014-10-30 08:10:04.000000000 +0100

@@ -178,7 +178,7 @@

`(progn

(eval-when (:compile-toplevel :load-toplevel :execute)

(define-foreign-library ,library

- (:unix ,(format nil "~(~A~).so.2.0" library))

+ (:unix ,(format nil "~(~A~).so.3" library))

(t (:default ,(format nil "~(~A~)" library)))))

(eval-startup (:compile-toplevel :execute)

(load-foreign-library ',library))

@@ -186,10 +186,7 @@

(eval-startup (:compile-toplevel :execute)

(defcvar (,variable ,variable-name :read-only t :library ,library)

:pointer)

- (defcfun (,init-function ,(format nil "_Z~A~Av"

- (length function-name)

- function-name)

- :library ,library)

+ (defcfun (,init-function ,function-name :library ,library)

:void))

(eval-when (:compile-toplevel :load-toplevel :execute)

(defparameter ,smoke-module (make-smoke-module)))