;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Aug 2002
;;;;
-;;;; $Id: base.lisp,v 1.14 2003/04/19 03:50:12 kevin Exp $
+;;;; $Id: base.lisp,v 1.15 2003/05/26 14:53:33 kevin Exp $
;;;;
;;;; This file, part of LML, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
(when *print-spaces* (indent-spaces *indent* *html-output*))
(if args
(apply #'format *html-output* str args)
- (princ str *html-output*))
- (when *print-spaces* (format *html-output* "~%"))
- (values)))
+ (write-string str *html-output*))
+ (when *print-spaces* (write-char #\newline *html-output*))))
(defun lml-princ (s)
(princ s *html-output*))
(defun lml-write-char (char)
(write-char char *html-output*))
+(defun lml-write-string (str)
+ (write-string str *html-output*))
+
(defun lml-print-date (date)
- (lml-princ (date-string date)))
+ (lml-write-string (date-string date)))
(defmacro lml-exec-body (&body forms)
`(progn
(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)
+ (format nil " ~A" ,attr)
""))
(incf *indent*)
(lml-exec-body ,@body)
+cl-lml (2.4.1-1) unstable; urgency=low
+
+ * New upstream, export *print-spaces*.xs
+
+ -- Kevin M. Rosenberg <kmr@debian.org> Fri, 23 May 2003 09:39:28 -0600
+
cl-lml (2.4.0-1) unstable; urgency=low
* Move read-macro to it's own file.
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Aug 2002
;;;;
-;;;; $Id: package.lisp,v 1.4 2003/01/17 22:16:25 kevin Exp $
+;;;; $Id: package.lisp,v 1.5 2003/05/26 14:53:33 kevin Exp $
;;;;
;;;; This file, part of LML, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
(:export
;; base.lisp
+ #:*print-spaces*
#:reset-indent
#:with
#:print-page
#:lml-print
#:lml-princ
#:lml-write-char
+ #:lml-write-string
#:lml-print-date
#:*html-output*