X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=base.lisp;h=7898bba8e89ed75b5d638278b13b32a40d455c96;hb=e3ff612ddc55b7cd07bb919fae9a34e6f7e3028f;hp=2939200cdbd79f5c16f6878744217e53397dfb6d;hpb=d5efacf3fe09226f7945730a433f5931c95b709c;p=lml.git diff --git a/base.lisp b/base.lisp index 2939200..7898bba 100644 --- a/base.lisp +++ b/base.lisp @@ -7,7 +7,7 @@ ;;;; 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.17 2003/06/07 22:46:58 kevin Exp $ ;;;; ;;;; This file, part of LML, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -16,8 +16,7 @@ ;;;; (http://www.gnu.org/licenses/gpl.html) ;;;; ************************************************************************* -(declaim (optimize (debug 3) (speed 3) (safety 3) (compilation-speed 0))) -(in-package :lml) +(in-package #:lml) (defun html4-prologue-string () "") @@ -38,9 +37,8 @@ (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*)) @@ -51,8 +49,11 @@ (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 @@ -73,9 +74,9 @@ (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)