X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=blobdiff_plain;f=ml-class.lisp;h=f32a974a29f067aa25bafe7744bd8978b159bef1;hp=ab41de8463afc67f436e4d06bdb974911b3f4f52;hb=b78dc95605e353bd0f81b626bc37ac2cb3ccd30f;hpb=fdc478e95eb5599d3061435290a52afdaf3b9ac1

diff --git a/ml-class.lisp b/ml-class.lisp
index ab41de8..f32a974 100644
--- a/ml-class.lisp
+++ b/ml-class.lisp
@@ -11,7 +11,7 @@
 ;;;; in Text, HTML, and XML formats. This includes hyperlinking
 ;;;; capability and sub-objects.
 ;;;;
-;;;; $Id: ml-class.lisp,v 1.8 2002/10/14 07:07:30 kevin Exp $
+;;;; $Id: ml-class.lisp,v 1.9 2002/10/14 15:01:17 kevin Exp $
 ;;;;
 ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -227,9 +227,9 @@ Format is ((field-name field-lookup-func other-link-params) ...)")
 	    (setq xmlvalue-func (append xmlvalue-func plain-value-func)))
 	  ))
 
-      (setq value-func `(lambda (x) (values ,@value-func)))
+      (setq value-func `(lambda () (values ,@value-func)))
       (setq value-func (compile nil (eval value-func)))
-      (setq xmlvalue-func `(lambda (x) (values ,@xmlvalue-func)))
+      (setq xmlvalue-func `(lambda () (values ,@xmlvalue-func)))
       (setq xmlvalue-func (compile nil (eval xmlvalue-func)))
 
       (setf (slot-value cl 'fmtstr-text) fmtstr-text)