projects
/
kmrcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r2967: *** empty log message ***
[kmrcl.git]
/
ml-class.lisp
diff --git
a/ml-class.lisp
b/ml-class.lisp
index 525ff16cfd69f08bdd44c217a9d0ab227bf40ca6..567a327afbf64ba10e3a3e3e2ad74d458ef14f9f 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.
4 2002/10/10 16:23:48
kevin Exp $
+;;;; $Id: ml-class.lisp,v 1.
5 2002/10/11 23:51:33
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
;;;;
@@
-379,9
+379,6
@@
Format is ((field-name field-lookup-func other-link-params) ...)")
:obj-data-fmtstr-labels #'ml-class-fmtstr-html-labels
:obj-data-value-func #'ml-class-value-func))
:obj-data-fmtstr-labels #'ml-class-fmtstr-html-labels
:obj-data-value-func #'ml-class-value-func))
-(defclass htmlrefformat (htmlformat)
- ()
- (:default-initargs :link-ref (make-instance 'html-link-ref)))
(defun class-name-of (obj)
(string-downcase (class-name (class-of obj))))
(defun class-name-of (obj)
(string-downcase (class-name (class-of obj))))
@@
-412,10
+409,6
@@
Format is ((field-name field-lookup-func other-link-params) ...)")
:obj-data-fmtstr-labels #'ml-class-fmtstr-xml-labels
:obj-data-value-func #'ml-class-xmlvalue-func))
:obj-data-fmtstr-labels #'ml-class-fmtstr-xml-labels
:obj-data-value-func #'ml-class-xmlvalue-func))
-(defclass xmlrefformat (xmlformat)
- ()
- (:default-initargs :link-ref (make-instance 'xml-link-ref)))
-
(defclass link-ref ()
((fmtstr :type function :initarg :fmtstr :accessor fmtstr)
(fmtstr-labels :type function :initarg :fmtstr-labels :accessor fmtstr-labels)
(defclass link-ref ()
((fmtstr :type function :initarg :fmtstr :accessor fmtstr)
(fmtstr-labels :type function :initarg :fmtstr-labels :accessor fmtstr-labels)
@@
-446,6
+439,15
@@
Format is ((field-name field-lookup-func other-link-params) ...)")
:ampersand "&"))
:ampersand "&"))
+(defclass htmlrefformat (htmlformat)
+ ()
+ (:default-initargs :link-ref (make-instance 'html-link-ref)))
+
+(defclass xmlrefformat (xmlformat)
+ ()
+ (:default-initargs :link-ref (make-instance 'xml-link-ref)))
+
+
;;; File Start and Ends
(defmethod fmt-file-start ((fmt dataformat) (s stream)))
;;; File Start and Ends
(defmethod fmt-file-start ((fmt dataformat) (s stream)))