;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id: package.lisp,v 1.10 2002/11/02 18:00:45 kevin Exp $
+;;;; $Id: package.lisp,v 1.14 2002/12/03 00:54:08 kevin Exp $
;;;;
;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
(defpackage #:kmrcl
(:nicknames :kl)
- (:use :common-lisp
- #+(or aserve allegro) :net.html.generator
- #+(or aserve allegro) :net.aserve
- #+allegro :net.xml.parser
- )
+ (:use :common-lisp)
(:export #:bind-if
#:bind-when
#:aif
#:stream-subst
#:remove-tree-if
#:find-tree
+ #:with-each-file-line
+ #:with-each-stream-line
#:print-file-contents
#:read-file-to-string
#:read-file-to-strings
#:start-telnet-server
;; From web-utils
+ #:*base-url*
+ #:base-url!
+ #:make-url
#:*standard-html-header*
#:*standard-xhtml-header*
#:*standard-xml-header*
- #:xml-cdata
#:user-agent-ie-p
-
- ;; From web-utils-aserve
- #:cgi-var
- #:print-http
- #:princ-http
- #:base-url!
- #:make-url
- #:with-tag
- #:with-tag-attribute
- #:princ-http-with-color
- #:princ-http-with-size
- #:with-link
- #:home-link
- #:head
- #:with-page
+
+ ;; From xml-utils
#:wrap-with-xml
- #:parse-xml-no-ws
- #:positions-xml-tag-contents
#:xml-tag-contents
- #:encode-query
-
- ;; From ml-class.lisp
- #:ml-class
- #:ml-class-title
- #:load-all-subobjects
- #:display-ml-class
+ #:positions-xml-tag-contents
#:xml-cdata
))