projects
/
kmrcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r5491: *** empty log message ***
[kmrcl.git]
/
package.lisp
diff --git
a/package.lisp
b/package.lisp
index 735662aa05dfc66d5003e40a68c151ac5a4b7657..1816cbafbbf40e121b7c1684fa4aa0ded8b8f1e1 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.5
4 2003/07/23 22:07:48
kevin Exp $
+;;;; $Id: package.lisp,v 1.5
8 2003/08/12 06:37:53
kevin Exp $
;;;;
;;;; 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
@@
-52,8
+53,8
@@
#:count-string-char
#:count-string-char-if
#:hexchar
#:count-string-char
#:count-string-char-if
#:hexchar
- #:
escape-uri-field
- #:u
nescape-uri-field
+ #:
uriencode-string
+ #:u
ridecode-string
#:non-alphanumericp
#:random-string
#:first-char
#:non-alphanumericp
#:random-string
#:first-char
@@
-79,7
+80,7
@@
#:null-output-stream
;; lists.lisp
#:null-output-stream
;; 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
@@
-117,6
+118,7
@@
#:it
#:mac
#:mv-bind
#:it
#:mac
#:mv-bind
+ #:deflex
;; files.lisp
#:print-file-contents
;; files.lisp
#:print-file-contents
@@
-130,10
+132,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