Author: hhubner Date: Thu Jan 31 07:33:43 2008 New Revision: 2433

Modified: branches/trunk-reorg/xhtmlgen/package.lisp branches/trunk-reorg/xhtmlgen/xhtmlgen.lisp Log: Change xhtmlgen again so that it does not depend on Alexandria just for the sake of WITH-GENSYMS.

Modified: branches/trunk-reorg/xhtmlgen/package.lisp ============================================================================== --- branches/trunk-reorg/xhtmlgen/package.lisp (original) +++ branches/trunk-reorg/xhtmlgen/package.lisp Thu Jan 31 07:33:43 2008 @@ -1,7 +1,7 @@ (in-package :cl-user)

(defpackage :xhtml-generator - (:use :common-lisp :alexandria) + (:use :common-lisp) (:export #:html #:html-stream #:*html-sink*

Modified: branches/trunk-reorg/xhtmlgen/xhtmlgen.lisp ============================================================================== --- branches/trunk-reorg/xhtmlgen/xhtmlgen.lisp (original) +++ branches/trunk-reorg/xhtmlgen/xhtmlgen.lisp Thu Jan 31 07:33:43 2008 @@ -46,7 +46,7 @@

(defmacro html (&rest forms &environment env) ;; just emit html to the current stream - (with-gensyms (body) + (let ((body (gensym))) `(labels ((,body () ,(process-html-forms forms env))) (if (boundp '*html-sink*)