From 9c9a88110167cb4727f04677192fd7afd4c8b00f Mon Sep 17 00:00:00 2001
From: "Kevin M. Rosenberg" <kevin@rosenberg.net>
Date: Sun, 29 Dec 2002 09:10:41 +0000
Subject: [PATCH 1/1] r3691: *** empty log message ***

---
 lml.lisp => base.lisp | 6 +++---
 debian/changelog      | 6 ++++++
 lml.asd               | 8 ++++----
 3 files changed, 13 insertions(+), 7 deletions(-)
 rename lml.lisp => base.lisp (98%)

diff --git a/lml.lisp b/base.lisp
similarity index 98%
rename from lml.lisp
rename to base.lisp
index a98ced9..85a5911 100644
--- a/lml.lisp
+++ b/base.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Aug 2002
 ;;;;
-;;;; $Id: lml.lisp,v 1.6 2002/11/25 18:59:20 kevin Exp $
+;;;; $Id: base.lisp,v 1.1 2002/12/29 09:10:41 kevin Exp $
 ;;;;
 ;;;; This file, part of LML, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -141,11 +141,11 @@
 			     :width ,width :height ,height :align ,align))))
     `(lml-print ,(format nil "<img src=\"~A\"~A />" dest attr))))
 
-(defmacro input (&key name class id type style size maxlength value)
+(defmacro input (&key name class id type style size maxlength value checked)
   (let ((attr
 	 (eval `(keyargs-string :name ,name :class ,class :id ,id :style ,style
 			     :size ,size :maxlength ,maxlength :value ,value
-			     :type ,type))))
+			     :type ,type :checked ,checked))))
     `(lml-print ,(format nil "<input~A />" attr))))
 
 (defmacro meta (name content)
diff --git a/debian/changelog b/debian/changelog
index d38ca92..c256bc5 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+cl-lml (1.7.6-1) unstable; urgency=low
+
+  * Add checked to input macro
+
+ -- Kevin M. Rosenberg <kmr@debian.org>  Sun, 29 Dec 2002 02:10:21 -0700
+
 cl-lml (1.7.5-1) unstable; urgency=low
 
   * Add support for OpenMCL
diff --git a/lml.asd b/lml.asd
index 0304634..6efe339 100644
--- a/lml.asd
+++ b/lml.asd
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Aug 2002
 ;;;;
-;;;; $Id: lml.asd,v 1.11 2002/11/08 16:51:40 kevin Exp $
+;;;; $Id: lml.asd,v 1.12 2002/12/29 09:10:41 kevin Exp $
 ;;;;
 ;;;; This file, part of LML, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -34,8 +34,8 @@
   ((:file "package")
    (:file "utils" :depends-on ("package"))
    (:file "files" :depends-on ("utils"))
-   (:file "lml" :depends-on ("files"))
-   (:file "stdsite" :depends-on ("lml"))
-   (:file "downloads" :depends-on ("lml"))
+   (:file "base" :depends-on ("files"))
+   (:file "stdsite" :depends-on ("base"))
+   (:file "downloads" :depends-on ("base"))
    ))
 
-- 
2.34.1