r3662: *** empty log message ***

[kmrcl.git] / package.lisp

diff --git a/package.lisp b/package.lisp
index d4a772df0075b3b3e691ed11a7d970c047164dca..0781ae5dc628d5ed43d32fef68dfc0913b391c19 100644 (file)
--- a/package.lisp
+++ b/package.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;
-;;;; $Id: package.lisp,v 1.5 2002/10/16 17:37:18 kevin Exp $
+;;;; $Id: package.lisp,v 1.18 2002/12/26 11:57:07 kevin Exp $
 ;;;;
 ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -22,13 +22,9 @@
 
 (defpackage #:kmrcl
   (:nicknames :kl)
-  (:use :common-lisp
-       #+(or aserve allegro) :net.html.generator 
-       #+(or aserve allegro) :net.aserve
-       #+allegro :net.xml.parser
-       )
-  (:export #:bind-if
-          #:bind-when
+  (:use :common-lisp)
+  (:export #:let-if
+          #:let-when
           #:aif
          #:awhen
          #:awhile
@@ -43,6 +39,7 @@
          #:ensure-integer
          #:mklist
          #:filter
+         #:appendnew
          #:memo-proc
          #:memoize
          #:defun-memo
@@ -56,25 +53,15 @@
          #:mapcar2-append-string
          #:delimited-string-to-list
          #:list-to-delimited-string
-         #:string-append
-         #:count-string-words
-         #:substitute-string-for-char
-         #:string-trim-last-character
-         #:string-hash
-         #:string-not-null?
-         #:whitespace?
-         #:not-whitespace?
-         #:string-ws?
-         #:string-invert
          #:indent-spaces
          #:print-list
          #:print-rows
-         #:concat-symbol
-         #:concat-symbol-pkg
          #:file-subst
          #: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
@@ -85,7 +72,26 @@
          #:in
          #:mean
          #:with-gensyms
-         
+
+         ;; strings.lisp
+         #:string-append
+         #:count-string-words
+         #:substitute-string-for-char
+         #:string-trim-last-character
+         #:string-hash
+         #:string-not-null?
+         #:whitespace?
+         #:not-whitespace?
+         #:string-ws?
+         #:string-invert
+         #:escape-xml-string
+         #:string-replace-char-string
+
+         ;; symbols.lisp
+         #:ensure-keyword
+         #:concat-symbol
+         #:concat-symbol-pkg
+
          ;; From attrib-class.lisp
          #:attributes-class
          #:slot-attribute
@@ -104,57 +110,31 @@
          #:seed-random-generator
          #:random-choice
 
-
-         ;; From pipes.lisp
-         #:+empty-pipe+
-         #:make-pipe
-         #:pipe-tail
-         #:pipe-head
-         #:pipe-elt
-         #:enumerate
-         #:pipe-display
-         #:pipe-force
-         #:pipe-filter
-         #:pipe-map
-         #:pipe-map-filtering
-         #:pipe-append
-         #:pipe-mappend
-         #:pipe-mappend-filtering
-
          ;; From telnet-server.lisp
          #:start-telnet-server   
 
          ;; From web-utils
-         #:std-xml-header
-         #:xml-cdata
-
-         ;; From web-utils-allegro
-         #:cgi-var
-         #:print-http
-         #:princ-http
+         #:*base-url*
          #:base-url!
          #:make-url
-         #:with-tag
-         #:with-tag-attribute
-         #:princ-http-with-color
-         #:princ-http-with-size
-         #:with-link
-         #:home-link
-         #:head
-         #:with-xml-page
-         #:with-html-page
+         #:*standard-html-header*
+         #:*standard-xhtml-header*
+         #:*standard-xml-header*
+         #:user-agent-ie-p
+
+         ;; 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
+         
+         ;; From console
+         *console-msgs*
+         cmsg
+         cmsg-c
+         cmsg-add
+         cmsg-remove
+         fixme
          ))