X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=blobdiff_plain;f=package.lisp;h=754aef5324ddebe540782f99db70a35dde24ee3f;hp=8646698a4649c699e749759726699f72a7be2e54;hb=6e84de6e7bff9079d0b6ba62a3c85d2eb98f2eb4;hpb=aab275e8e82b4a4a4af4749d79ca49d2dd596c1c diff --git a/package.lisp b/package.lisp index 8646698..754aef5 100644 --- a/package.lisp +++ b/package.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Apr 2000 ;;;; -;;;; $Id: package.lisp,v 1.13 2002/11/25 07:45:36 kevin Exp $ +;;;; $Id: package.lisp,v 1.49 2003/07/11 06:58:32 kevin Exp $ ;;;; ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -16,105 +16,205 @@ ;;;; (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) - (: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 - #:with-each-file-line - #:with-each-stream-line - #: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 + (:nicknames #:kl) + (:use #:cl) + (:export + #:ensure-integer + #:mklist + #:filter + #:appendnew + #:memo-proc + #:memoize + #:defun-memo + #:_f + #:compose + #: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 + #:unescape-uri-field + #:non-alphanumericp + #:random-string + #:first-char + #:last-char + #:ensure-string + #:string-right-trim-one-char + + #:flatten + + ;; io.lisp + #:indent-spaces + #:indent-html-spaces + #:print-n-chars + #:print-n-strings + #:print-list + #:print-rows + #:write-fixnum + #: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 + #:alist-elem-p + #:alistp + #:get-alist + #:update-alist + #:alist-plist + #:plist-alist + #:update-plist + #:get-plist - #:generalized-equal - - ;; From buffered input - - #:make-fields-buffer - #:read-buffered-fields + ;; seq.lisp + #:nsubseq + + ;; math.lisp + #:ensure-integer + + ;; macros.lisp + #:time-iterations + #:in + #:mean + #:with-gensyms + #:let-if + #:let-when + #:aif + #:awhen + #:awhile + #:aand + #:acond + #:alambda + #:it + #:mac + #:mv-bind + + ;; 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 + #:string-not-null? + #:whitespace? + #:not-whitespace? + #:string-ws? + #: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 + + ;; symbols.lisp + #:ensure-keyword + #:concat-symbol + #:concat-symbol-pkg + #:show + #:show-variables + #:show-functions + + ;; From attrib-class.lisp + #:attributes-class + #:slot-attribute + #:slot-attributes - #:pretty-date - #:date-string + #:generalized-equal - ;; From random.lisp - #:seed-random-generator - #:random-choice + ;; 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 - ;; From telnet-server.lisp - #:start-telnet-server + ;; byte-stream + #:make-binary-array-output-stream + #:get-output-stream-data + #:dump-output-stream-data + #:make-byte-array-input-stream - ;; From web-utils - #:*base-url* - #:base-url! - #:make-url - #:*standard-html-header* - #:*standard-xhtml-header* - #:*standard-xml-header* - #:xml-cdata - #:user-agent-ie-p - )) + ;; sockets.lisp + #:make-active-socket + #:close-active-socket + + ;; listener.lisp + #:init/listener + #:stop-all/listener + #:listener + ))