From 5559792b52819370c47ec865053216ec91ae81e2 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Sun, 23 Mar 2003 18:41:50 +0000 Subject: [PATCH 1/1] r4229: *** empty log message *** --- base.lisp | 8 ++++---- debian/changelog | 6 ++++++ 2 files changed, 10 insertions(+), 4 deletions(-) diff --git a/base.lisp b/base.lisp index 20a1677..ac32af8 100644 --- a/base.lisp +++ b/base.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Aug 2002 ;;;; -;;;; $Id: base.lisp,v 1.12 2003/03/05 04:25:09 kevin Exp $ +;;;; $Id: base.lisp,v 1.13 2003/03/23 18:38:16 kevin Exp $ ;;;; ;;;; This file, part of LML, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -85,10 +85,10 @@ (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) - ""))))) + (format nil " ~A" ,attr) + ""))))) (defun one-keyarg-string (key value) "Return attribute string for keys" diff --git a/debian/changelog b/debian/changelog index 89b5604..d3ded6b 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,9 @@ +cl-lml (2.3.4-1) unstable; urgency=low + + * Minor upstream change + + -- Kevin M. Rosenberg Sat, 22 Mar 2003 23:30:29 -0700 + cl-lml (2.3.3-1) unstable; urgency=low * New upstream [fixes mcl issue] -- 2.34.1