X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=blobdiff_plain;f=package.lisp;h=7b7238bdcf488eaf264b0ed27e3ffd6db3351f70;hp=90054ecaf14ab122ecda47a90292ce5706e0aea0;hb=4de7f25a69c218303f170314ac26217770a531ed;hpb=3f50791d43f83b9141e4022ce1fd2460edf62436

diff --git a/package.lisp b/package.lisp
index 90054ec..7b7238b 100644
--- a/package.lisp
+++ b/package.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;
-;;;; $Id: package.lisp,v 1.7 2002/10/16 22:59:27 kevin Exp $
+;;;; $Id: package.lisp,v 1.21 2003/04/28 23:51:59 kevin Exp $
 ;;;;
 ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -22,141 +22,134 @@
 
 (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
-	   #:aif
-	  #:awhen
-	  #:awhile
-	  #:aand
-	  #:acond
-	  #:alambda
-	  #:it
-	  #:mac
-	  #:show
-	  #:show-variables
-	  #:show-functions
-	  #:ensure-integer
-	  #:mklist
-	  #:filter
-	  #:memo-proc
-	  #:memoize
-	  #:defun-memo
-	  #:_f
-	  #:compose
-	  #:until
-	  #:while
-	  #:for
-	  #:mapappend
-	  #:mapcar-append-string
-	  #: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
-	  #:print-file-contents
-	  #:read-file-to-string
-	  #:read-file-to-strings
-	  #:add-sql-quotes
-	  #:escape-backslashes
-	  #:remove-keyword
-	  #:remove-keywords
-	  #:in
-	  #:mean
-	  #:with-gensyms
-	  
-	  ;; From attrib-class.lisp
-	  #:attributes-class
-	  #:slot-attribute
-
-	  #:generalized-equal
-	  
-	  ;; From buffered input
-	  
-	  #:make-fields-buffer
-	  #:read-buffered-fields
-
-	  #:pretty-date
-	  #:date-string
-
-	  ;; From random.lisp
-	  #: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-html-header*
-	  #:*std-xhtml-header*
-	  #:*std-xml-header*
-	  #:xml-cdata
-
-	  ;; 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
-	  #: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
-	  ))
+  (:use :common-lisp)
+  (:export
+   #:ensure-integer
+   #:mklist
+   #:filter
+   #:appendnew
+   #:memo-proc
+   #:memoize
+   #:defun-memo
+   #:_f
+   #:compose
+   #:until
+   #:while
+   #:for
+   #:mapappend
+   #:mapcar-append-string
+   #:mapcar2-append-string
+   #:delimited-string-to-list
+   #:list-to-delimited-string
+   #:indent-spaces
+   #:print-list
+   #:print-rows
+   #:file-subst
+   #:stream-subst
+   #:remove-tree-if
+   #:find-tree
+   #:with-each-file-line
+   #:with-each-stream-line
+   #:remove-keyword
+   #:remove-keywords
+   #:nsubseq
+   
+   ;; macros.lisp
+   #:time-iterations
+   #:in
+   #:mean
+   #:with-gensyms
+   #:let-if
+   #:let-when
+   #:aif
+   #:awhen
+   #:awhile
+   #:aand
+   #:acond
+   #:alambda
+   #:it
+   #:mac
+   
+   ;; files.lisp
+   #:print-file-contents
+   #:read-file-to-string
+   #:read-file-to-strings
+   
+   ;; 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
+   #:make-usb8-array
+   #:usb8-array-to-string
+   #:string-to-usb8-array
+   #:string-replace-chars-strings
+   #:add-sql-quotes
+   #:escape-backslashes
+   
+   ;; symbols.lisp
+   #:ensure-keyword
+   #:concat-symbol
+   #:concat-symbol-pkg
+   #:show
+   #:show-variables
+   #:show-functions
+   
+   ;; From attrib-class.lisp
+   #:attributes-class
+   #:slot-attribute
+   
+   #:generalized-equal
+   
+   ;; From buffered input
+   
+   #:make-fields-buffer
+   #:read-buffered-fields
+   
+   ;; From datetime.lisp
+   #:pretty-date
+   #:date-string
+   #:print-float-units
+   #:print-seconds
+   
+   ;; From random.lisp
+   #:seed-random-generator
+   #:random-choice
+   
+   ;; 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*
+   #: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
+   ))