r8005: Automated commit for kmrcl debian-version-1.58-1

[kmrcl.git] / package.lisp

diff --git a/package.lisp b/package.lisp
index f5cbc6e4f6e178c0990d92cb694545d8bd386f4f..803dc120129513310530598a40eb0444d138b716 100644 (file)
--- a/package.lisp
+++ b/package.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;
-;;;; $Id: package.lisp,v 1.56 2003/08/06 10:03:21 kevin Exp $
+;;;; $Id$
 ;;;;
 ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -37,6 +37,9 @@
    #:for
 
    ;; strings.lisp
+   #:string-trim-whitespace
+   #:string-left-trim-whitespace
+   #:string-right-trim-whitespace
    #:mapappend
    #:mapcar-append-string
    #:mapcar2-append-string
@@ -53,8 +56,8 @@
    #:count-string-char
    #:count-string-char-if
    #:hexchar
-   #:escape-uri-field
-   #:unescape-uri-field
+   #:uriencode-string
+   #:uridecode-string
    #:non-alphanumericp
    #:random-string
    #:first-char
@@ -64,8 +67,6 @@
    #:string-strip-ending
    #:string-maybe-shorten
    #:shrink-vector
-   
-   #:flatten
 
    ;; io.lisp
    #:indent-spaces
@@ -78,9 +79,17 @@
    #:file-subst
    #:stream-subst
    #:null-output-stream
-   
+   #:directory-tree
+
+   ;; impl.lisp
+   #:probe-directory
+   #:cwd
+   #:quit
+   #:command-line-arguments
+   #:shell-command-output
+
    ;; lists.lisp
-   #:remove-tree-if
+   #:remove-from-tree-if
    #:find-tree
    #:with-each-file-line
    #:with-each-stream-line
@@ -95,12 +104,14 @@
    #:plist-alist
    #:update-plist
    #:get-plist
+   #:flatten
 
    ;; seq.lisp
    #:nsubseq
    
    ;; math.lisp
    #:ensure-integer
+   #:histogram
    
    ;; macros.lisp
    #:time-iterations
@@ -132,10 +143,10 @@
    #:string-trim-last-character
    #:nstring-trim-last-character
    #:string-hash
-   #:string-not-null?
-   #:whitespace?
-   #:not-whitespace?
-   #:string-ws?
+   #:is-string-empty
+   #:is-char-whitespace
+   #:not-whitespace-char
+   #:is-string-whitespace
    #:string-invert
    #:escape-xml-string
    #:make-usb8-array
@@ -232,7 +243,7 @@
 
    ;; os.lisp
    #:run-shell-command
-   
+
    ))