r3018: *** empty log message ***

diff --git a/debian/changelog b/debian/changelog
index 50108d9b8b3eb332d220abf5bcdbfb7917530867..5703dd9b99099bb9c6afbd5a5a4aca31e7e304ec 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,9 +1,3 @@
-cl-kmrcl (1.8-1) unstable; urgency=low
-
-  * ml-class.lisp: Add support for openmcl
-
- -- Kevin M. Rosenberg <kmr@debian.org>  Mon, 14 Oct 2002 03:35:34 -0600
-
 cl-kmrcl (1.7-1) unstable; urgency=low
 
   * Push :kmrcl onto features

diff --git a/kmrcl.asd b/kmrcl.asd
index 5a551b928b87f5b7912873a150d13d3805cc8942..6b5a0ffab0f923865b65e1124bbc6072d8663970 100644 (file)
--- a/kmrcl.asd
+++ b/kmrcl.asd
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;
-;;;; $Id: kmrcl.asd,v 1.9 2002/10/14 09:40:46 kevin Exp $
+;;;; $Id: kmrcl.asd,v 1.10 2002/10/14 15:01:17 kevin Exp $
 ;;;;
 ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -40,7 +40,7 @@
      
      (:file "web-utils" :depends-on ("package"))
      (:file "xml-utils" :depends-on ("package"))
-     #+(or allegro lispworks cmu sbcl openmcl) (:file "ml-class" :depends-on ("strings" "genutils"))
+     #+(or allegro lispworks cmu sbcl) (:file "ml-class" :depends-on ("strings" "genutils"))
      #+(or allegro aserve) (:file "web-utils-aserve" :depends-on ("strings" "genutils"))
      ))
 

diff --git a/ml-class.lisp b/ml-class.lisp
index ab41de8463afc67f436e4d06bdb974911b3f4f52..f32a974a29f067aa25bafe7744bd8978b159bef1 100644 (file)
--- 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)