src/smoke.lisp
Fri Feb 19 22:22:50 CET 2010 Tobias Rautenkranz <tobias@rautenkranz.ch>
* cleanup #'delete-object & optimize #'constructor-name.
--- old-smoke/src/smoke.lisp 2014-10-30 08:06:22.000000000 +0100
+++ new-smoke/src/smoke.lisp 2014-10-30 08:06:22.000000000 +0100
@@ -73,10 +73,7 @@
(s-call (make-smoke-method-from-name class method-name) pointer)))
(defun delete-object (object)
- (let ((method-name (concatenate 'string "~" (name (class-of object)))))
- (s-call
- (make-smoke-method-from-name (class-of object) method-name)
- (pointer object)))
+ (delete-pointer (pointer object) (class-of object))
(setf (slot-value object 'pointer) (null-pointer)))
(eval-startup (:load-toplevel :execute)