;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Aug 2002
;;;;
-;;;; $Id: base.lisp,v 1.7 2003/02/07 02:37:18 kevin Exp $
+;;;; $Id: base.lisp,v 1.8 2003/02/07 04:20:25 kevin Exp $
;;;;
;;;; This file, part of LML, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
(defmacro with-attr-string (tag attr-string &body body)
(let ((attr (gensym)))
`(let ((,attr ,attr-string))
- (lml-format "<~(~A~)~A>" ',tag
+ (lml-format "<~(~A~) ~A>" ',tag
(if (and (stringp ,attr) (plusp (length ,attr)))
(format nil "~A" ,attr)
""))
(defmacro with-no-endtag-attr-string (tag attr-string)
(let ((attr (gensym)))
`(let ((,attr ,attr-string))
- (lml-format "<~(~A~)~A />" ',tag
+ (lml-format "<~(~A~) ~A />" ',tag
(if (and (stringp ,attr) (plusp (length ,attr)))
(format nil "~A" ,attr)
"")))))
+cl-lml (2.2.3-1) unstable; urgency=low
+
+ * Add missing space character to output
+
+ -- Kevin M. Rosenberg <kmr@debian.org> Thu, 6 Feb 2003 21:20:06 -0700
+
cl-lml (2.2.2-1) unstable; urgency=low
* Rename link to alink and add new link macro that produces a <link ...></link>