From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Mon, 14 Oct 2002 15:03:43 +0000 (+0000)
Subject: r3018: *** empty log message ***
X-Git-Tag: v1.96~325
X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=commitdiff_plain;h=b78dc95605e353bd0f81b626bc37ac2cb3ccd30f

r3018: *** empty log message ***
---

diff --git a/debian/changelog b/debian/changelog
index 50108d9..5703dd9 100644
--- 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 5a551b9..6b5a0ff 100644
--- 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 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)