;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id: views.lisp,v 1.14 2002/12/13 08:25:45 kevin Exp $
+;;;; $Id: views.lisp,v 1.15 2002/12/13 08:41:25 kevin Exp $
;;;;
;;;; This file is Copyright (c) 2000-2002 by Kevin M. Rosenberg
;;;;
) ;; let value-fmt
(let ((func (if print-formatter
- `(,print-formatter (slot-value x (quote ,name)))
- `(slot-value x (quote ,name)))))
+ `(,print-formatter (slot-value x (quote ,name)))
+ `(slot-value x (quote ,name)))))
(when (and (in category :xml :xhtml :xml-link :xhtml-link
:xhtml-link-labels :xml-link-labels :ie-xml-link
:ie-xml-link-labels)