X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=package.lisp;h=d35299880993a55f7852b1f7ea220634f826ed61;hb=c61966ea4ea1f60f5d093c6112543fabed399b97;hp=3eb7b1d371ef00937216ba5ccf752099ab273178;hpb=45326a2fd9e7761899d593d7f528abf455453b0b;p=kmrcl.git

diff --git a/package.lisp b/package.lisp
index 3eb7b1d..d352998 100644
--- a/package.lisp
+++ b/package.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;
-;;;; $Id: package.lisp,v 1.33 2003/05/26 21:43:05 kevin Exp $
+;;;; $Id: package.lisp,v 1.42 2003/06/18 01:00:52 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
@@ -42,15 +40,31 @@
    #:mapcar-append-string
    #:mapcar2-append-string
    #:position-char
+   #:position-not-char
    #:delimited-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
+   #:non-alphanumericp
+   #:random-string
+   #:first-char
+   #:last-char
    
    #:flatten
-   
+
+   ;; io.lisp
    #:indent-spaces
+   #:indent-html-spaces
    #:print-n-chars
+   #:print-n-strings
    #:print-list
    #:print-rows
    #:file-subst
@@ -123,8 +137,10 @@
    ;; From attrib-class.lisp
    #:attributes-class
    #:slot-attribute
+   #:slot-attributes
+
    #:generalized-equal
-   
+
    ;; From buffered input
    
    #:make-fields-buffer
@@ -151,6 +167,7 @@
    #:*standard-xhtml-header*
    #:*standard-xml-header*
    #:user-agent-ie-p
+   #:decode-uri-query-string
    
    ;; From xml-utils
    #:wrap-with-xml
@@ -166,6 +183,15 @@
    cmsg-add
    cmsg-remove
    fixme
+   
+   ;; assoc
+   #:alist-elem-p
+   #:alistp
+   #:get-alist
+   #:update-alist
+   #:alist-plist
+   #:plist-alist
+   #:get-plist
    ))