;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id: kmrcl.asd,v 1.3 2002/10/10 16:23:48 kevin Exp $
+;;;; $Id: kmrcl.asd,v 1.4 2002/10/11 23:51:33 kevin Exp $
;;;;
;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
(:file "web-utils" :depends-on ("package"))
(:file "xml-utils" :depends-on ("package"))
- #+(or allegro lispworks) (:file "ml-class" :depends-on ("package"))
+ #+(or allegro lispworks cmu) (:file "ml-class" :depends-on ("package"))
#+(or allegro aserve) (:file "web-utils-aserve" :depends-on ("package"))
)
)
;;;; 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
;;;;
: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))))
: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)
: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)))