Fri Jun 5 09:50:38 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* Set *package* from #'QT-EVAL.

-(defvar *result*)

-

- (setf *result*

- (multiple-value-list (eval form))))

+ (setf (result *qt-eval*) (multiple-value-list (eval form))

+ (new-package *qt-eval*) *package*))

- :documentation "Send an form to evaluate."))

+ :documentation "Send an form to evaluate.")

+ (result :accessor result)

+ (package :accessor new-package))

- (values-list *result*))

+ (setf *package* (new-package *qt-eval*))

+ (values-list (result *qt-eval*)))