X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=base.lisp;h=5c2f88737630cb196207619d59747789e59b088f;hb=7c195b8519f680bcb64b02645e4110cb7082d914;hp=421eac0d8aefd2efd310ec8ff6f7e55bdd9dab61;hpb=73631a484a54cfd9596d7610e303295778cf4b11;p=lml.git

diff --git a/base.lisp b/base.lisp
index 421eac0..5c2f887 100644
--- 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