src/clos.lisp
Fri Feb 19 22:10:24 CET 2010 Tobias Rautenkranz <tobias@rautenkranz.ch>
* No need to construct a SmokeBinding per Smoke module.
--- old-smoke/src/clos.lisp 2014-10-30 08:06:28.000000000 +0100
+++ new-smoke/src/clos.lisp 2014-10-30 08:06:28.000000000 +0100
@@ -337,8 +337,7 @@
;; Receive virtual function calls.
(defcallback dispatch-method :boolean
- ((binding :pointer)
- (method smoke-index)
+ ((method smoke-index)
(object-ptr :pointer)
(stack smoke-stack)
(abstract :boolean))
@@ -349,9 +348,7 @@
;; the finalizer. Thus OBJECT might be NIL.
(unless (null object)
(let* ((method (make-smoke-method
- :smoke (gethash (pointer-address
- (smoke-get-smoke binding))
- *smoke-modules*)
+ :smoke (smoke (class-of object))
:id method)))
(loop
(restart-case