X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=package.lisp;h=b71a95da384a3960f706f300e1f6a827ca5180bf;hb=e9425347d51ee6933462b0c08c01979eee18c2eb;hp=6c74e849d7272102e52ee3cd92293897afc1e8e0;hpb=4a7372ef4000eaaa86a987bc9668ccecf7d0489f;p=kmrcl.git

diff --git a/package.lisp b/package.lisp
index 6c74e84..b71a95d 100644
--- a/package.lisp
+++ b/package.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;
-;;;; $Id: package.lisp,v 1.6 2002/10/16 21:58:49 kevin Exp $
+;;;; $Id: package.lisp,v 1.16 2002/12/13 21:59:57 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
@@ -69,12 +65,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 +81,12 @@
 	  #:in
 	  #:mean
 	  #:with-gensyms
-	  
+
+	  ;; symbols.lisp
+	  #:ensure-keyword
+	  #:concat-symbol
+	  #:concat-symbol-pkg
+
 	  ;; From attrib-class.lisp
 	  #:attributes-class
 	  #:slot-attribute
@@ -104,56 +105,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-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
 	  ))