r3662: *** empty log message ***

[kmrcl.git] / package.lisp

diff --git a/package.lisp b/package.lisp
index b8c5582853efc294479ebe51f64290d9af21a1a6..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.10 2002/11/02 18:00:45 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
@@ -108,38 +114,27 @@
          #: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
+         
+         ;; From console
+         *console-msgs*
+         cmsg
+         cmsg-c
+         cmsg-add
+         cmsg-remove
+         fixme
          ))