src/bindings.lisp
Thu Aug 27 13:43:13 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Support the new smokegenerator (r1015073).
* support const correctness
* remove workarounds for the old smoke
The old smoke is no longer supported.
Thanks to Arno Rehn for making the smokegenerator work with cl-smoke.
--- old-smoke/src/bindings.lisp 2014-10-30 08:11:20.000000000 +0100
+++ new-smoke/src/bindings.lisp 2014-10-30 08:11:20.000000000 +0100
@@ -45,6 +45,13 @@
(defvar *smoke-modules* (make-hash-table)
"All loaded Smoke modules.")
+(defmethod print-object ((smoke-module smoke-module) stream)
+ (if (null-pointer-p (smoke-module-pointer smoke-module))
+ (call-next-method)
+ (print-unreadable-object (smoke-module stream :type t :identity t)
+ (princ (smoke-get-module-name (smoke-module-pointer smoke-module))
+ stream))))
+
(defun init-smoke-module (module)
(let ((smoke (smoke-module-pointer module)))
(setf (gethash (pointer-address smoke) *smoke-modules*)