projects
/
kmrcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r3018: *** empty log message ***
[kmrcl.git]
/
ml-class.lisp
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.
;;;;
;;;; 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
;;;;
;;;;
;;;; 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 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 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)
(setq xmlvalue-func (compile nil (eval xmlvalue-func)))
(setf (slot-value cl 'fmtstr-text) fmtstr-text)