X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=package.lisp;h=4146122e8adf15343538b0725a3bf8ff1035e5bd;hb=d60bf2d464b393bdff8482bcaacd8d49957467ce;hp=68cd4133d0b23f5e3fa93760012480c6f10213df;hpb=91e3d8f38e4ccdfbfb9c351e05b487ee899c9e47;p=kmrcl.git diff --git a/package.lisp b/package.lisp index 68cd413..4146122 100644 --- a/package.lisp +++ b/package.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Apr 2000 ;;;; -;;;; $Id: package.lisp,v 1.52 2003/07/19 20:32:48 kevin Exp $ +;;;; $Id$ ;;;; ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -25,6 +25,7 @@ #:ensure-integer #:mklist #:filter + #:map-and-remove-nils #:appendnew #:memo-proc #:memoize @@ -36,6 +37,9 @@ #:for ;; strings.lisp + #:string-trim-whitespace + #:string-left-trim-whitespace + #:string-right-trim-whitespace #:mapappend #:mapcar-append-string #:mapcar2-append-string @@ -52,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 @@ -63,8 +67,7 @@ #:string-strip-ending #:string-maybe-shorten #:shrink-vector - - #:flatten + #:match-unique-abbreviation ;; io.lisp #:indent-spaces @@ -77,9 +80,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 @@ -94,6 +105,7 @@ #:plist-alist #:update-plist #:get-plist + #:flatten ;; seq.lisp #:nsubseq @@ -117,6 +129,7 @@ #:it #:mac #:mv-bind + #:deflex ;; files.lisp #:print-file-contents @@ -130,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 @@ -144,6 +157,12 @@ #:escape-backslashes #:concat-separated-strings #:print-separated-strings + #:lex-string + #:split-alphanumeric-string + + ;; strmatch.lisp + #:score-multiword-match + #:multiword-match ;; symbols.lisp #:ensure-keyword @@ -221,6 +240,12 @@ ;; fformat.lisp #:fformat + + ;; os.lisp + #:run-shell-command + + ;; getopt.lisp + #:getopt ))