;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id: package.lisp,v 1.9 2002/10/17 22:25:38 kevin Exp $
+;;;; $Id$
;;;;
;;;; 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
- #+(or aserve allegro) :net.html.generator
- #+(or aserve allegro) :net.aserve
- #+allegro :net.xml.parser
- )
- (:export #:bind-if
- #:bind-when
- #:aif
- #:awhen
- #:awhile
- #:aand
- #:acond
- #:alambda
- #:it
- #:mac
- #:show
- #:show-variables
- #:show-functions
- #:ensure-integer
- #:mklist
- #:filter
- #:memo-proc
- #:memoize
- #:defun-memo
- #:_f
- #:compose
- #:until
- #:while
- #:for
- #:mapappend
- #:mapcar-append-string
- #:mapcar2-append-string
- #:delimited-string-to-list
- #:list-to-delimited-string
- #:string-append
- #:count-string-words
- #:substitute-string-for-char
- #:string-trim-last-character
- #:string-hash
- #:string-not-null?
- #:whitespace?
- #:not-whitespace?
- #:string-ws?
- #:string-invert
- #:indent-spaces
- #:print-list
- #:print-rows
- #:concat-symbol
- #:concat-symbol-pkg
- #:file-subst
- #:stream-subst
- #:remove-tree-if
- #:find-tree
- #:print-file-contents
- #:read-file-to-string
- #:read-file-to-strings
- #:add-sql-quotes
- #:escape-backslashes
- #:remove-keyword
- #:remove-keywords
- #:in
- #:mean
- #:with-gensyms
-
- ;; From attrib-class.lisp
- #:attributes-class
- #:slot-attribute
-
- #:generalized-equal
-
- ;; From buffered input
-
- #:make-fields-buffer
- #:read-buffered-fields
-
- #:pretty-date
- #:date-string
-
- ;; From random.lisp
- #:seed-random-generator
- #:random-choice
-
-
- ;; From pipes.lisp
- #:+empty-pipe+
- #:make-pipe
- #:pipe-tail
- #:pipe-head
- #:pipe-elt
- #:enumerate
- #:pipe-display
- #:pipe-force
- #:pipe-filter
- #:pipe-map
- #:pipe-map-filtering
- #:pipe-append
- #:pipe-mappend
- #:pipe-mappend-filtering
-
- ;; From telnet-server.lisp
- #:start-telnet-server
-
- ;; From web-utils
- #:*standard-html-header*
- #:*standard-xhtml-header*
- #:*standard-xml-header*
- #:xml-cdata
- #:user-agent-ie-p
-
- ;; From web-utils-aserve
- #:cgi-var
- #:print-http
- #:princ-http
- #:base-url!
- #:make-url
- #:with-tag
- #:with-tag-attribute
- #:princ-http-with-color
- #:princ-http-with-size
- #:with-link
- #:home-link
- #:head
- #:with-page
- #:wrap-with-xml
- #:parse-xml-no-ws
- #:positions-xml-tag-contents
- #:xml-tag-contents
- #:encode-query
-
- ;; From ml-class.lisp
- #:ml-class
- #:ml-class-title
- #:load-all-subobjects
- #:display-ml-class
- #:xml-cdata
- ))
+ (:nicknames #:kl)
+ (:use #:cl)
+ (:export
+ #:ensure-integer
+ #:mklist
+ #:filter
+ #:map-and-remove-nils
+ #:appendnew
+ #:memo-proc
+ #:memoize
+ #:defun-memo
+ #:_f
+ #:compose
+ #:until
+ #:while
+ #:for
+
+ ;; strings.lisp
+ #:string-trim-whitespace
+ #:string-left-trim-whitespace
+ #:string-right-trim-whitespace
+ #: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
+ #:uriencode-string
+ #:uridecode-string
+ #:non-alphanumericp
+ #:random-string
+ #:first-char
+ #:last-char
+ #:ensure-string
+ #:string-right-trim-one-char
+ #:string-strip-ending
+ #:string-maybe-shorten
+ #:shrink-vector
+
+ ;; io.lisp
+ #:indent-spaces
+ #:indent-html-spaces
+ #:print-n-chars
+ #:print-n-strings
+ #:print-list
+ #:print-rows
+ #:write-fixnum
+ #:file-subst
+ #:stream-subst
+ #:null-output-stream
+ #:directory-tree
+
+ ;; impl.lisp
+ #:probe-directory
+ #:cwd
+ #:quit
+ #:command-line-arguments
+ #:shell-command-output
+
+ ;; lists.lisp
+ #:remove-from-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
+ #:flatten
+
+ ;; seq.lisp
+ #:nsubseq
+
+ ;; math.lisp
+ #:ensure-integer
+ #:histogram
+
+ ;; macros.lisp
+ #:time-iterations
+ #:in
+ #:mean
+ #:with-gensyms
+ #:let-if
+ #:let-when
+ #:aif
+ #:awhen
+ #:awhile
+ #:aand
+ #:acond
+ #:alambda
+ #:it
+ #:mac
+ #:mv-bind
+ #:deflex
+
+ ;; files.lisp
+ #:print-file-contents
+ #:read-file-to-string
+ #:read-file-to-strings
+
+ ;; strings.lisp
+ #:string-append
+ #:count-string-words
+ #:substitute-string-for-char
+ #:string-trim-last-character
+ #:nstring-trim-last-character
+ #:string-hash
+ #:is-string-empty
+ #:is-char-whitespace
+ #:not-whitespace-char
+ #:is-string-whitespace
+ #:string-invert
+ #:escape-xml-string
+ #:make-usb8-array
+ #:usb8-array-to-string
+ #:string-to-usb8-array
+ #:substitute-chars-strings
+ #:add-sql-quotes
+ #:escape-backslashes
+ #:concat-separated-strings
+ #:print-separated-strings
+ #:lex-string
+ #:split-alphanumeric-string
+
+ ;; strmatch.lisp
+ #:score-multiword-match
+ #:multiword-match
+
+ ;; symbols.lisp
+ #:ensure-keyword
+ #:concat-symbol
+ #:concat-symbol-pkg
+ #:show
+ #:show-variables
+ #:show-functions
+
+ ;; From attrib-class.lisp
+ #:attributes-class
+ #:slot-attribute
+ #:slot-attributes
+
+ #:generalized-equal
+
+ ;; From buffered input
+
+ #:make-fields-buffer
+ #:read-buffered-fields
+
+ ;; From datetime.lisp
+ #:pretty-date
+ #:date-string
+ #:print-float-units
+ #:print-seconds
+
+ ;; From random.lisp
+ #:seed-random-generator
+ #:random-choice
+
+ ;; From repl.lisp
+ #:make-repl
+ #:init/repl
+
+ ;; From web-utils
+ #:*base-url*
+ #:base-url!
+ #:make-url
+ #:*standard-html-header*
+ #:*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*
+ #: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
+
+ ;; sockets.lisp
+ #:make-active-socket
+ #:close-active-socket
+
+ ;; listener.lisp
+ #:init/listener
+ #:stop-all/listener
+ #:listener
+
+ ;; fformat.lisp
+ #:fformat
+
+ ;; os.lisp
+ #:run-shell-command
+
+ ))
projects / kmrcl.git / blobdiff