X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;ds=sidebyside;f=base.lisp;fp=base.lisp;h=4a03e71632aa245ba6cd35bccd957a553d3bad60;hb=b2d601fcc40acb08a61cb3607f4455bfbd3126fc;hp=3e59034436a5132777e9a8c54449ef325915ffec;hpb=d37adbea3308d1729d6cf7b23b51dd5d081dc43d;p=lml.git

diff --git a/base.lisp b/base.lisp
index 3e59034..4a03e71 100644
--- a/base.lisp
+++ b/base.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Aug 2002
 ;;;;
-;;;; $Id: base.lisp,v 1.10 2003/02/10 19:49:18 kevin Exp $
+;;;; $Id: base.lisp,v 1.11 2003/02/17 06:48:46 kevin Exp $
 ;;;;
 ;;;; This file, part of LML, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -201,11 +201,11 @@
 (defmacro input (&rest args)
   `(with-no-endtag input ,@args))
 
-(defmacro meta (name content)
-  `(with meta :name ,name :content ,content))
+(defmacro link (&rest args)
+  `(with-no-endtag link ,@args))
 
-(defmacro meta-key (&key name content http-equiv)
-  `(with meta :name ,name :content ,content :http-equiv ,http-equiv))
+(defmacro meta (&rest args)
+  `(with-no-endtag meta ,@args))
 
 (defmacro br (&rest args)
   `(with-no-endtag br ,@args))
@@ -229,8 +229,8 @@
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (defparameter *macro-list*
     '(a div span h1 h2 h3 h4 h5 h6 i b p li ul ol table tbody td th tr body head
-	  html title pre tt u dl dt dd kbd code form textarea link))
-  (export '(alink alink-c br hr img input meta meta-key))
+	  html title pre tt u dl dt dd kbd code form textarea))
+  (export '(alink alink br hr img input meta link meta-key))
   (export *macro-list*))
 
 (loop for i in *macro-list*