X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=package.lisp;h=afb5385c9543902616f5312283da2b343ecc4203;hb=8e1e9fe9c4b29ed0bb5a8f340b2eb583144bb905;hp=ae3d14acd06d56c0cde09bf3b979d909c8f547cb;hpb=64ab2587ad0923623832012abd1b8b2cf5a11a84;p=kmrcl.git

diff --git a/package.lisp b/package.lisp
index ae3d14a..afb5385 100644
--- a/package.lisp
+++ b/package.lisp
@@ -7,12 +7,13 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;
-;;;; $Id: package.lisp,v 1.3 2002/10/09 14:24:47 kevin Exp $
+;;;; $Id: package.lisp,v 1.12 2002/11/07 22:08:41 kevin Exp $
 ;;;;
 ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
 ;;;; KMRCL users are granted the rights to distribute and use this software
-;;;; as governed by the terms of the GNU General Public License.
+;;;; as governed by the terms of the Lisp Lesser GNU Public License
+;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
 ;;;; *************************************************************************
 
 (declaim (optimize (debug 3) (speed 3) (safety 1) (compilation-speed 0)))
@@ -74,6 +75,8 @@
 	  #: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
@@ -103,31 +106,17 @@
 	  #: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
+	  #:*standard-html-header*
+	  #:*standard-xhtml-header*
+	  #:*standard-xml-header*
 	  #:xml-cdata
-
-	  ;; From web-utils-allegro
+	  #:user-agent-ie-p
+	  
+	  ;; From web-utils-aserve
 	  #:cgi-var
 	  #:print-http
 	  #:princ-http
@@ -140,20 +129,12 @@
 	  #:with-link
 	  #:home-link
 	  #:head
-	  #:with-xml-page
-	  #:with-trans-page
+	  #:with-page
 	  #: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
-	  #:xml-cdata
 	  ))