r3629: *** empty log message ***

[kmrcl.git] / package.lisp

diff --git a/package.lisp b/package.lisp
index 895c1fe895b806f6203c429b2d4ac19c71ccda5f..daeff57546ce3b3181ad318ca35b6967329ad77d 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.8 2002/10/16 23:34:33 kevin Exp $
+;;;; $Id: package.lisp,v 1.17 2002/12/14 18:51:53 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
@@ -69,12 +66,12 @@
          #: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 +82,12 @@
          #:in
          #:mean
          #:with-gensyms
-         
+
+         ;; symbols.lisp
+         #:ensure-keyword
+         #:concat-symbol
+         #:concat-symbol-pkg
+
          ;; From attrib-class.lisp
          #:attributes-class
          #:slot-attribute
@@ -104,58 +106,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
+         #:*base-url*
+         #:base-url!
+         #:make-url
          #:*standard-html-header*
          #:*standard-xhtml-header*
          #:*standard-xml-header*
-         #:xml-cdata
+         #:user-agent-ie-p
 
-         ;; From web-utils-allegro
-         #: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
          ))