r3734: *** empty log message ***

[lml.git] / base.lisp

diff --git a/base.lisp b/base.lisp
index 421eac0d8aefd2efd310ec8ff6f7e55bdd9dab61..5c2f88737630cb196207619d59747789e59b088f 100644 (file)
--- a/base.lisp
+++ b/base.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Aug 2002
 ;;;;
-;;;; $Id: base.lisp,v 1.2 2003/01/04 13:26:14 kevin Exp $
+;;;; $Id: base.lisp,v 1.3 2003/01/04 20:42:02 kevin Exp $
 ;;;;
 ;;;; This file, part of LML, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -162,7 +162,7 @@
   `(with a :href ,dest ,@body))
 
 (defmacro link-c (class dest &body body)
-  `(with a :href ,dest :class ,class ,@body))
+  `(with a :href ,dest :class (quote ,class) ,@body))
 
 (defmacro img (dest &key class id alt style width height align)
   (let ((attr