Fri Jun 12 14:21:44 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Load Smoke libraries at compile time.
hunk ./src/clos.lisp 109
-(defclass smoke-standard-object ()
- ((pointer :reader pointer
- :initarg :pointer
- :documentation "Pointer to the C++ object.")
- ;; We can not have a global table of objects owned by C++,
- ;; since then they would be alway reacable from Lisp and thus
- ;; cycles would never be garbage collected.
- (owned-objects :accessor owned-objects
- :initform nil
- :type list
- :documentation "Objecsts owned by the C++ instance."))
- (:documentation "The standard superclass for Smoke classes."))
-
hunk ./src/objects/stack.lisp 31
+
+(defclass smoke-standard-object ()
+ ((pointer :reader pointer
+ :initarg :pointer
+ :documentation "Pointer to the C++ object.")
+ ;; We can not have a global table of objects owned by C++,
+ ;; since then they would be alway reacable from Lisp and thus
+ ;; cycles would never be garbage collected.
+ (owned-objects :accessor owned-objects
+ :initform nil
+ :type list
+ :documentation "Objecsts owned by the C++ instance."))
+ (:documentation "The standard superclass for Smoke classes."))
hunk ./src/smoke.lisp 171
+ (eval-when (:compile-toplevel :load-toplevel :execute)
hunk ./src/smoke.lisp 175
- (use-foreign-library ,library)
+ (use-foreign-library ,library))