r3662: *** empty log message ***

[kmrcl.git] / package.lisp

diff --git a/package.lisp b/package.lisp
index 8646698a4649c699e749759726699f72a7be2e54..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.13 2002/11/25 07:45:36 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
 ;;;;
@@ -23,8 +23,8 @@
 (defpackage #:kmrcl
   (:nicknames :kl)
   (:use :common-lisp)
-  (:export #:bind-if
-          #:bind-when
+  (:export #:let-if
+          #:let-when
           #:aif
          #:awhen
          #:awhile
@@ -39,6 +39,7 @@
          #:ensure-integer
          #:mklist
          #:filter
+         #:appendnew
          #:memo-proc
          #:memoize
          #:defun-memo
@@ -52,21 +53,9 @@
          #: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
@@ -83,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
@@ -112,8 +120,21 @@
          #:*standard-html-header*
          #:*standard-xhtml-header*
          #:*standard-xml-header*
-         #:xml-cdata
          #:user-agent-ie-p
+
+         ;; From xml-utils
+         #:wrap-with-xml
+         #:xml-tag-contents
+         #:positions-xml-tag-contents
+         #:xml-cdata
+         
+         ;; From console
+         *console-msgs*
+         cmsg
+         cmsg-c
+         cmsg-add
+         cmsg-remove
+         fixme
          ))