;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id: package.lisp,v 1.21 2003/04/28 23:51:59 kevin Exp $
+;;;; $Id: package.lisp,v 1.40 2003/06/17 13:56:38 kevin Exp $
;;;;
;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
;;;; (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
- (:nicknames :kl)
- (:use :common-lisp)
+ (:nicknames #:kl)
+ (:use #:cl)
(:export
#:ensure-integer
#:mklist
#:until
#:while
#:for
+
+ ;; strings.lisp
#: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
+ #:escape-uri-field
+ #:non-alphanumericp
+ #:random-string
+ #:first-char
+ #:last-char
+
+ #:flatten
#:indent-spaces
+ #:print-n-chars
#:print-list
#:print-rows
#:file-subst
#:stream-subst
+
+ ;; lists.lisp
#:remove-tree-if
#:find-tree
#:with-each-file-line
#:with-each-stream-line
#:remove-keyword
#:remove-keywords
+ #:append-sublists
+
#:nsubseq
+ ;; math.lisp
+ #:ensure-integer
;; macros.lisp
#:time-iterations
#:count-string-words
#:substitute-string-for-char
#:string-trim-last-character
+ #:nstring-trim-last-character
#:string-hash
#:string-not-null?
#:whitespace?
#:string-ws?
#:string-invert
#:escape-xml-string
- #:string-replace-char-string
#:make-usb8-array
#:usb8-array-to-string
#:string-to-usb8-array
- #:string-replace-chars-strings
+ #:substitute-chars-strings
#:add-sql-quotes
#:escape-backslashes
+ #:concat-separated-strings
+ #:print-separated-strings
;; symbols.lisp
#:ensure-keyword
;; From attrib-class.lisp
#:attributes-class
#:slot-attribute
-
+ #:slot-attributes
+
#:generalized-equal
-
+
;; From buffered input
#:make-fields-buffer
#:*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
+ #:write-xml-cdata
;; From console
*console-msgs*