projects
/
kmrcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r5238: *** empty log message ***
[kmrcl.git]
/
package.lisp
diff --git
a/package.lisp
b/package.lisp
index 120d39bfcd20dfbec01cfff8c83b20ae85da9a9b..f45be5594323cf36ada24a23b7ede02efcf90931 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.
24 2003/05/02 22:30:26
kevin Exp $
+;;;; $Id: package.lisp,v 1.
45 2003/07/05 02:32:31
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
;;;;
@@
-16,13
+16,11
@@
;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
;;;; *************************************************************************
;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
;;;; *************************************************************************
-(declaim (optimize (debug 3) (speed 3) (safety 1) (compilation-speed 0)))
-
-(in-package :cl-user)
+(in-package #:cl-user)
(defpackage #:kmrcl
(defpackage #:kmrcl
- (:nicknames :kl)
- (:use
:common-lisp
)
+ (:nicknames
#
:kl)
+ (:use
#:cl
)
(:export
#:ensure-integer
#:mklist
(:export
#:ensure-integer
#:mklist
@@
-36,25
+34,68
@@
#:until
#:while
#:for
#:until
#:while
#:for
+
+ ;; strings.lisp
#:mapappend
#:mapcar-append-string
#:mapcar2-append-string
#:mapappend
#:mapcar-append-string
#:mapcar2-append-string
+ #:position-char
+ #:position-not-char
#:delimited-string-to-list
#:delimited-string-to-list
+ #:string-delimited-string-to-list
#:list-to-delimited-string
#: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
+ #:escape-uri-field
+ #:unescape-uri-field
+ #:non-alphanumericp
+ #:random-string
+ #:first-char
+ #:last-char
+ #:ensure-string
+
#:flatten
#:flatten
+
+ ;; io.lisp
#:indent-spaces
#:indent-spaces
+ #:indent-html-spaces
+ #:print-n-chars
+ #:print-n-strings
#:print-list
#:print-rows
#:print-list
#:print-rows
+ #:write-fixnum
#:file-subst
#:stream-subst
#:file-subst
#:stream-subst
+
+ ;; lists.lisp
#:remove-tree-if
#:find-tree
#:with-each-file-line
#:with-each-stream-line
#:remove-keyword
#:remove-keywords
#:remove-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
#:nsubseq
+ ;; math.lisp
+ #:ensure-integer
+
;; macros.lisp
#:time-iterations
#:in
;; macros.lisp
#:time-iterations
#:in
@@
-95,6
+136,8
@@
#:substitute-chars-strings
#:add-sql-quotes
#:escape-backslashes
#:substitute-chars-strings
#:add-sql-quotes
#:escape-backslashes
+ #:concat-separated-strings
+ #:print-separated-strings
;; symbols.lisp
#:ensure-keyword
;; symbols.lisp
#:ensure-keyword
@@
-107,9
+150,10
@@
;; From attrib-class.lisp
#:attributes-class
#:slot-attribute
;; From attrib-class.lisp
#:attributes-class
#:slot-attribute
-
+ #:slot-attributes
+
#:generalized-equal
#:generalized-equal
-
+
;; From buffered input
#:make-fields-buffer
;; From buffered input
#:make-fields-buffer
@@
-136,20
+180,28
@@
#:*standard-xhtml-header*
#:*standard-xml-header*
#:user-agent-ie-p
#:*standard-xhtml-header*
#:*standard-xml-header*
#:user-agent-ie-p
+ #:decode-uri-query-string
;; From xml-utils
#:wrap-with-xml
#:xml-tag-contents
#:positions-xml-tag-contents
#:xml-cdata
;; From xml-utils
#:wrap-with-xml
#:xml-tag-contents
#:positions-xml-tag-contents
#:xml-cdata
+ #:write-xml-cdata
;; From console
;; 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
))
))