Tue Apr 7 11:49:04 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* cmucl support
hunk ./src/clos.lisp 235
-(defclass smoke-gf (standard-generic-function smoke-method)
- ()
+(defclass smoke-gf (standard-generic-function)
+ ((cxx-name :reader name :initarg :cxx-name))
hunk ./src/method.lisp 77
-(defun ensure-generic-methods (names-and-ids smoke)
- "Ensures the generic functions in NAMES-AND-IDS for the Smoke module SMOKE."
- (dolist (name-id names-and-ids)
- (ensure-generic-function (first name-id)
- :id (rest name-id)
- :smoke smoke
+(defun ensure-generic-methods (symbols-names)
+ "Ensures the generic functions for SYMBOLS-NAMES."
+ (dolist (symbol-name symbols-names)
+ (ensure-generic-function (first symbol-name)
+ :cxx-name (rest symbol-name)
hunk ./src/method.lisp 85
- (export (first name-id) :CXX)))
+ (export (first symbol-name) :CXX)))
hunk ./src/method.lisp 125
- (id method))
+ (name method))
hunk ./src/method.lisp 137
- (ensure-generic-methods ',(hash-table-key-values generics) ,smoke)
+ (ensure-generic-methods ',(hash-table-key-values generics))