projects
/
kmrcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r5246: *** empty log message ***
[kmrcl.git]
/
package.lisp
diff --git
a/package.lisp
b/package.lisp
index 87f6372fe3e0e23f7d9a6df4d14e5769232fe6f4..0aa12281c1b46f0953abc9819777c3c9eb8b0bda 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.
30 2003/05/09 09:35:04
kevin Exp $
+;;;; $Id: package.lisp,v 1.
46 2003/07/08 00:12:51
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
@@
-42,14
+40,37
@@
#:mapcar-append-string
#:mapcar2-append-string
#:position-char
#: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
- #:flatten
+ #: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
+ #:string-left-trim-one-char
+ #:flatten
+
+ ;; io.lisp
#:indent-spaces
#:indent-spaces
+ #:indent-html-spaces
#:print-n-chars
#:print-n-chars
+ #:print-n-strings
#:print-list
#:print-rows
#:print-list
#:print-rows
+ #:write-fixnum
#:file-subst
#:stream-subst
#:file-subst
#:stream-subst
@@
-61,8
+82,18
@@
#:remove-keyword
#:remove-keywords
#:append-sublists
#: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
;; math.lisp
#:ensure-integer
@@
-120,8
+151,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
@@
-148,20
+181,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
))
))