Tue May 12 17:42:55 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Make *qtwebkit-smoke* read only
diff -rN -u old-qt.webkit/src/qt.webkit.lisp new-qt.webkit/src/qt.webkit.lisp
--- old-qt.webkit/src/qt.webkit.lisp 2014-10-30 07:04:17.000000000 +0100
+++ new-qt.webkit/src/qt.webkit.lisp 2014-10-30 07:04:17.000000000 +0100
@@ -28,17 +28,17 @@
(in-package :qt.webkit)
(eval-when (:load-toplevel :compile-toplevel)
-(define-foreign-library libsmokeqtwebkit
- (:unix "libsmokeqtwebkit.so.2")
- (t (:default "libsmokeqtwebkit")))
-(use-foreign-library libsmokeqtwebkit)
+ (define-foreign-library libsmokeqtwebkit
+ (:unix "libsmokeqtwebkit.so.2")
+ (t (:default "libsmokeqtwebkit")))
+ (use-foreign-library libsmokeqtwebkit)
-(defcvar "qtwebkit_Smoke" :pointer
- "The Smoke QtWebkit binding")
+ (defcvar ("qtwebkit_Smoke" :read-only t) :pointer
+ "The Smoke QtWebkit binding")
-(defcfun (init-qtwebkit-smoke "_Z19init_qtwebkit_Smokev") :void)
+ (defcfun (init-qtwebkit-smoke "_Z19init_qtwebkit_Smokev") :void)
-(defvar *binding* (null-pointer))
+ (defvar *binding* (null-pointer))
(init-qtwebkit-smoke)
(when (null-pointer-p *binding*)