Thu Jun 11 16:35:40 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* Modules can specify the package to place the classes, static methods and constants in.

- ())

+ ((package :initarg :package)))

-(defun make-smoke-classes (smoke)

- "Construts a lisp class for each one in the Smoke module SMOKE."

+(defun make-smoke-classes (package smoke)

+ "Construts a lisp class in PACKAGE for each one in the Smoke module SMOKE."

+ (let ((*package* (find-package package)))

- smoke))

+ smoke)))

-(defun constant-definition (method smoke)

+(defun constant-definition (package method smoke)

- "+"))

+ "+")

+ package)

- (name method) "+")))))

+ (name method) "+")

+ package))))

-(defun static-method-symbol (method)

+(defun static-method-symbol (package method)

- (name method)))))

+ (name method))

+ package)))

-(defun static-method-definition (method &optional (argument-count -1))

+(defun static-method-definition (package method &optional (argument-count -1))

- (name (static-method-symbol method)))

+ (name (static-method-symbol package method)))

- (call-using-args (find-class (quote ,(lispify (name class))))

+ (call-using-args (find-class (quote ,(lispify (name class) package)))

-(defmacro define-methods (smoke)

+(defmacro define-classes-and-gfs (package smoke)

- (multiple-value-bind (def export) (constant-definition method smoke)

+ (multiple-value-bind (def export) (constant-definition package method smoke)

- (let* ((function-symbol (static-method-symbol method))

+ (let* ((function-symbol (static-method-symbol package method))

+ package

- (make-smoke-classes ,smoke)

+ (make-smoke-classes ,package ,smoke)

- (export (quote ,exports))))))

+ (export (quote ,exports) ,package)))))

- "asdf"

-(defmacro define-smoke-module (library (variable variable-name)

+(defmacro define-smoke-module (package library [_$_]

+ (variable variable-name)

- (define-methods ,variable)))

+ (define-classes-and-gfs ,package ,variable)))