;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id: package.lisp,v 1.33 2003/05/26 21:43:05 kevin Exp $
+;;;; $Id: package.lisp,v 1.44 2003/06/20 08:35:22 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
#: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
+ #:unescape-uri-field
+ #:non-alphanumericp
+ #:random-string
+ #:first-char
+ #:last-char
+ #:ensure-string
#:flatten
-
+
+ ;; io.lisp
#:indent-spaces
+ #:indent-html-spaces
#:print-n-chars
+ #:print-n-strings
#:print-list
#:print-rows
+ #:write-fixnum
#:file-subst
#:stream-subst
#: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
+
;; math.lisp
#:ensure-integer
;; 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
#:write-xml-cdata
;; From console
- *console-msgs*
- cmsg
- cmsg-c
- cmsg-add
- cmsg-remove
- fixme
+ #:*console-msgs*
+ #:cmsg
+ #:cmsg-c
+ #:cmsg-add
+ #:cmsg-remove
+ #:fixme
+
))