X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=package.lisp;h=79306a82fe977c1f0f10200361d8c2eb976d2272;hb=5dbd1fda3cf8f68c070cf3036dc6b1b536bc9f5a;hp=d53fa615590d9ac4be346c25c6d7b7368ab9de07;hpb=b7af043786744aaf0b67a5ee6f4d42a647dc738d;p=kmrcl.git

diff --git a/package.lisp b/package.lisp
index d53fa61..79306a8 100644
--- a/package.lisp
+++ b/package.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;
-;;;; $Id: package.lisp,v 1.22 2003/04/29 00:23:21 kevin Exp $
+;;;; $Id: package.lisp,v 1.35 2003/06/07 05:45:14 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,23 +34,41 @@
    #:until
    #:while
    #:for
+
+   ;; strings.lisp
    #:mapappend
    #:mapcar-append-string
    #:mapcar2-append-string
+   #:position-char
+   #:position-not-char
    #:delimited-string-to-list
    #:list-to-delimited-string
+   #:prefixed-fixnum-string
+   #:integer-string
+   #:fast-string-search
+   #:string-to-list-skip-delimiter
+   
+   #:flatten
+   
    #:indent-spaces
+   #:print-n-chars
    #:print-list
    #:print-rows
    #: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
+
    #:nsubseq
+   ;; math.lisp
+   #:ensure-integer
    
    ;; macros.lisp
    #:time-iterations
@@ -80,6 +96,7 @@
    #:count-string-words
    #:substitute-string-for-char
    #:string-trim-last-character
+   #:nstring-trim-last-character
    #:string-hash
    #:string-not-null?
    #:whitespace?
@@ -93,6 +110,8 @@
    #:substitute-chars-strings
    #:add-sql-quotes
    #:escape-backslashes
+   #:concat-separated-strings
+   #:print-separated-strings
    
    ;; symbols.lisp
    #:ensure-keyword
@@ -105,7 +124,6 @@
    ;; From attrib-class.lisp
    #:attributes-class
    #:slot-attribute
-   
    #:generalized-equal
    
    ;; From buffered input
@@ -140,6 +158,7 @@
    #:xml-tag-contents
    #:positions-xml-tag-contents
    #:xml-cdata
+   #:write-xml-cdata
    
    ;; From console
    *console-msgs*