X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=blobdiff_plain;f=package.lisp;h=754aef5324ddebe540782f99db70a35dde24ee3f;hp=5f6ec8fd90768e0228180fdd0ed84ce2c9abc915;hb=6e84de6e7bff9079d0b6ba62a3c85d2eb98f2eb4;hpb=298d0534004c26eb5a6881ea34658f59e180b63b

diff --git a/package.lisp b/package.lisp
index 5f6ec8f..754aef5 100644
--- a/package.lisp
+++ b/package.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;
-;;;; $Id: package.lisp,v 1.25 2003/05/04 14:52:10 kevin Exp $
+;;;; $Id: package.lisp,v 1.49 2003/07/11 06:58:32 kevin Exp $
 ;;;;
 ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -16,13 +16,11 @@
 ;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
 ;;;; *************************************************************************
 
-(declaim (optimize (debug 3) (speed 3) (safety 1) (compilation-speed 0)))
-
-(in-package :cl-user)
+(in-package #:cl-user)
 
 (defpackage #:kmrcl
-  (:nicknames :kl)
-  (:use :common-lisp)
+  (:nicknames #:kl)
+  (:use #:cl)
   (:export
    #:ensure-integer
    #:mklist
@@ -36,26 +34,69 @@
    #:until
    #:while
    #:for
+
+   ;; strings.lisp
    #:mapappend
    #:mapcar-append-string
    #:mapcar2-append-string
+   #:position-char
+   #:position-not-char
    #:delimited-string-to-list
-   #:ndelimited-string-to-list
+   #:string-delimited-string-to-list
    #:list-to-delimited-string
+   #:prefixed-fixnum-string
+   #:integer-string
+   #:fast-string-search
+   #:string-to-list-skip-delimiter
+   #:string-starts-with
+   #:count-string-char
+   #:count-string-char-if
+   #:hexchar
+   #:escape-uri-field
+   #:unescape-uri-field
+   #:non-alphanumericp
+   #:random-string
+   #:first-char
+   #:last-char
+   #:ensure-string
+   #:string-right-trim-one-char
+   
    #:flatten
+
+   ;; io.lisp
    #:indent-spaces
+   #:indent-html-spaces
+   #:print-n-chars
+   #:print-n-strings
    #:print-list
    #:print-rows
+   #:write-fixnum
    #:file-subst
    #:stream-subst
+
+   ;; lists.lisp
    #:remove-tree-if
    #:find-tree
    #:with-each-file-line
    #:with-each-stream-line
    #:remove-keyword
    #:remove-keywords
+   #:append-sublists
+   #:alist-elem-p
+   #:alistp
+   #:get-alist
+   #:update-alist
+   #:alist-plist
+   #:plist-alist
+   #:update-plist
+   #:get-plist
+
+   ;; seq.lisp
    #:nsubseq
    
+   ;; math.lisp
+   #:ensure-integer
+   
    ;; macros.lisp
    #:time-iterations
    #:in
@@ -71,6 +112,7 @@
    #:alambda
    #:it
    #:mac
+   #:mv-bind
    
    ;; files.lisp
    #:print-file-contents
@@ -96,6 +138,8 @@
    #:substitute-chars-strings
    #:add-sql-quotes
    #:escape-backslashes
+   #:concat-separated-strings
+   #:print-separated-strings
    
    ;; symbols.lisp
    #:ensure-keyword
@@ -108,9 +152,10 @@
    ;; From attrib-class.lisp
    #:attributes-class
    #:slot-attribute
-   
+   #:slot-attributes
+
    #:generalized-equal
-   
+
    ;; From buffered input
    
    #:make-fields-buffer
@@ -126,8 +171,9 @@
    #:seed-random-generator
    #:random-choice
    
-   ;; From telnet-server.lisp
-   #:start-telnet-server	  
+   ;; From repl.lisp
+   #:make-repl
+   #:init/repl
    
    ;; From web-utils
    #:*base-url*
@@ -137,20 +183,37 @@
    #:*standard-xhtml-header*
    #:*standard-xml-header*
    #:user-agent-ie-p
+   #:decode-uri-query-string
    
    ;; From xml-utils
    #:wrap-with-xml
    #:xml-tag-contents
    #:positions-xml-tag-contents
    #:xml-cdata
+   #:write-xml-cdata
    
    ;; From console
-   *console-msgs*
-   cmsg
-   cmsg-c
-   cmsg-add
-   cmsg-remove
-   fixme
+   #:*console-msgs*
+   #:cmsg
+   #:cmsg-c
+   #:cmsg-add
+   #:cmsg-remove
+   #:fixme
+
+   ;; byte-stream
+   #:make-binary-array-output-stream
+   #:get-output-stream-data
+   #:dump-output-stream-data
+   #:make-byte-array-input-stream
+
+   ;; sockets.lisp
+   #:make-active-socket
+   #:close-active-socket
+   
+   ;; listener.lisp
+   #:init/listener
+   #:stop-all/listener
+   #:listener
    ))