X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=blobdiff_plain;f=package.lisp;h=63198e7855fbfb9c41aa528f9f24f8bd1cbcfb34;hp=79306a82fe977c1f0f10200361d8c2eb976d2272;hb=6f333885c716800cf85c2986a3b835efe0e54e70;hpb=5dbd1fda3cf8f68c070cf3036dc6b1b536bc9f5a diff --git a/package.lisp b/package.lisp index 79306a8..63198e7 100644 --- a/package.lisp +++ b/package.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Apr 2000 ;;;; -;;;; $Id: package.lisp,v 1.35 2003/06/07 05:45:14 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,37 +37,79 @@ #:for ;; strings.lisp + #:string-trim-whitespace + #:string-left-trim-whitespace + #:string-right-trim-whitespace #:mapappend #: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 + #:uriencode-string + #:uridecode-string + #:non-alphanumericp + #:random-string + #:first-char + #:last-char + #:ensure-string + #:string-right-trim-one-char + #:string-strip-ending + #:string-maybe-shorten + #:shrink-vector #:flatten - + + ;; io.lisp #:indent-spaces + #:indent-html-spaces #:print-n-chars + #:print-n-strings #:print-list #:print-rows + #:write-fixnum #: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 #: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 @@ -85,6 +128,8 @@ #:alambda #:it #:mac + #:mv-bind + #:deflex ;; files.lisp #:print-file-contents @@ -98,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 @@ -112,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 @@ -124,8 +175,10 @@ ;; From attrib-class.lisp #:attributes-class #:slot-attribute + #:slot-attributes + #:generalized-equal - + ;; From buffered input #:make-fields-buffer @@ -141,8 +194,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* @@ -152,6 +206,7 @@ #:*standard-xhtml-header* #:*standard-xml-header* #:user-agent-ie-p + #:decode-uri-query-string ;; From xml-utils #:wrap-with-xml @@ -161,12 +216,34 @@ #: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 + + ;; fformat.lisp + #:fformat + + ;; os.lisp + #:run-shell-command + ))