projects
/
kmrcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r8931: command-output fixes
[kmrcl.git]
/
package.lisp
diff --git
a/package.lisp
b/package.lisp
index 735662aa05dfc66d5003e40a68c151ac5a4b7657..b04ab8e50f18c16a28ab0990d24ce7aa4e136801 100644
(file)
--- a/
package.lisp
+++ b/
package.lisp
@@
-7,7
+7,7
@@
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id
: package.lisp,v 1.54 2003/07/23 22:07:48 kevin Exp
$
+;;;; $Id$
;;;;
;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
;;;;
;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
@@
-25,6
+25,7
@@
#:ensure-integer
#:mklist
#:filter
#:ensure-integer
#:mklist
#:filter
+ #:map-and-remove-nils
#:appendnew
#:memo-proc
#:memoize
#:appendnew
#:memo-proc
#:memoize
@@
-36,6
+37,9
@@
#:for
;; strings.lisp
#:for
;; strings.lisp
+ #:string-trim-whitespace
+ #:string-left-trim-whitespace
+ #:string-right-trim-whitespace
#:mapappend
#:mapcar-append-string
#:mapcar2-append-string
#:mapappend
#:mapcar-append-string
#:mapcar2-append-string
@@
-47,13
+51,14
@@
#:prefixed-fixnum-string
#:integer-string
#:fast-string-search
#:prefixed-fixnum-string
#:integer-string
#:fast-string-search
+ #:string-substitute
#:string-to-list-skip-delimiter
#:string-starts-with
#:count-string-char
#:count-string-char-if
#:hexchar
#:string-to-list-skip-delimiter
#:string-starts-with
#:count-string-char
#:count-string-char-if
#:hexchar
- #:e
scape-uri-field
- #:
unescape-uri-field
+ #:e
ncode-uri-string
+ #:
decode-uri-string
#:non-alphanumericp
#:random-string
#:first-char
#:non-alphanumericp
#:random-string
#:first-char
@@
-62,9
+67,10
@@
#:string-right-trim-one-char
#:string-strip-ending
#:string-maybe-shorten
#:string-right-trim-one-char
#:string-strip-ending
#:string-maybe-shorten
+ #:string-elide
#:shrink-vector
#:shrink-vector
-
- #:
flatten
+ #:collapse-whitespace
+ #:
string->list
;; io.lisp
#:indent-spaces
;; io.lisp
#:indent-spaces
@@
-77,9
+83,17
@@
#:file-subst
#:stream-subst
#:null-output-stream
#:file-subst
#:stream-subst
#:null-output-stream
-
+ #:directory-tree
+
+ ;; impl.lisp
+ #:probe-directory
+ #:cwd
+ #:quit
+ #:command-line-arguments
+ #:shell-command-output
+
;; lists.lisp
;; lists.lisp
- #:remove-tree-if
+ #:remove-
from-
tree-if
#:find-tree
#:with-each-file-line
#:with-each-stream-line
#:find-tree
#:with-each-file-line
#:with-each-stream-line
@@
-94,12
+108,16
@@
#:plist-alist
#:update-plist
#:get-plist
#:plist-alist
#:update-plist
#:get-plist
+ #:flatten
;; seq.lisp
#:nsubseq
;; math.lisp
#:ensure-integer
;; seq.lisp
#:nsubseq
;; math.lisp
#:ensure-integer
+ #:histogram
+ #:fixnum-width
+ #:scaled-epsilon
;; macros.lisp
#:time-iterations
;; macros.lisp
#:time-iterations
@@
-117,10
+135,16
@@
#:it
#:mac
#:mv-bind
#:it
#:mac
#:mv-bind
+ #:deflex
+ #:def-cached-vector
+ #:def-cached-instance
+ #:with-ignore-errors
;; files.lisp
#:print-file-contents
;; files.lisp
#:print-file-contents
+ #:read-stream-to-string
#:read-file-to-string
#:read-file-to-string
+ #:read-stream-to-strings
#:read-file-to-strings
;; strings.lisp
#:read-file-to-strings
;; strings.lisp
@@
-130,10
+154,10
@@
#:string-trim-last-character
#:nstring-trim-last-character
#:string-hash
#: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
#:string-invert
#:escape-xml-string
#:make-usb8-array
@@
-153,6
+177,8
@@
;; symbols.lisp
#:ensure-keyword
;; symbols.lisp
#:ensure-keyword
+ #:ensure-keyword-upcase
+ #:ensure-keyword-default-case
#:concat-symbol
#:concat-symbol-pkg
#:show
#:concat-symbol
#:concat-symbol-pkg
#:show
@@
-176,6
+202,7
@@
#:date-string
#:print-float-units
#:print-seconds
#:date-string
#:print-float-units
#:print-seconds
+ #:posix-time-to-utime
;; From random.lisp
#:seed-random-generator
;; From random.lisp
#:seed-random-generator
@@
-194,13
+221,14
@@
#:*standard-xml-header*
#:user-agent-ie-p
#:decode-uri-query-string
#:*standard-xml-header*
#:user-agent-ie-p
#:decode-uri-query-string
+ #:split-uri-query-string
;; From xml-utils
;; From xml-utils
- #:
wrap-with-xml
+ #:
sgml-header-stream
#:xml-tag-contents
#:positions-xml-tag-contents
#:xml-tag-contents
#:positions-xml-tag-contents
- #:
xml-cdata
- #:write-
xml-
cdata
+ #:
cdata-string
+ #:write-cdata
;; From console
#:*console-msgs*
;; From console
#:*console-msgs*
@@
-229,8
+257,20
@@
#:fformat
;; os.lisp
#:fformat
;; os.lisp
- #:run-shell-command
+ #:command-output
+ #:run-shell-command-output-stream
+ ;; color.lisp
+ #:rgb->hsv
+ #:rgb255->hsv255
+ #:hsv->rgb
+ #:hsv255->rgb255
+ #:hsv-equal
+ #:hsv255-equal
+ #:hsv-similar
+ #:hsv255-similar
+ #:hue-difference
+ #:hue-difference-fixnum
))
))