[bknr-cvs] r2433 - branches/trunk-reorg/xhtmlgen

[hhubner at common-lisp.net]

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*)