Sun Aug 2 12:12:41 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* Cleanup C++ to Lisp translation

--- old-smoke/src/bindings.lisp 2014-10-30 08:11:45.000000000 +0100

+++ new-smoke/src/bindings.lisp 2014-10-30 08:11:45.000000000 +0100

@@ -1,6 +1,7 @@

(in-package :smoke)

-(defvar *bindings* (make-hash-table))

+(defvar *bindings* (make-hash-table)

+ "The Smoke C++ binding classes to which virtual method calls are dispatched.")

;; FIXME is this lock needed? (The user may not have to

;; load additional modules while threads are running.

@@ -22,6 +23,7 @@

binding)))

(defstruct smoke-array

+ "A C array."

(pointer (null-pointer) :type foreign-pointer)

(length 0 :type (smoke-index 0)))

@@ -40,7 +42,8 @@

(argument-list (null-pointer) :type foreign-pointer)

(ambiguous-method-list (null-pointer) :type foreign-pointer))

-(defvar *smoke-modules* (make-hash-table))

+(defvar *smoke-modules* (make-hash-table)

+ "All loaded Smoke modules.")

(defun init-smoke-module (module)

(let ((smoke (smoke-module-pointer module)))