X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=package.lisp;h=0781ae5dc628d5ed43d32fef68dfc0913b391c19;hb=3e172b14a7f4c73098ab3e1808db2b0bdc0bf986;hp=080b81e4add94199b872ddae23709bd7c650ab88;hpb=3c216f36d9d869356906b07c0214f986af0fb22b;p=kmrcl.git diff --git a/package.lisp b/package.lisp index 080b81e..0781ae5 100644 --- a/package.lisp +++ b/package.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Apr 2000 ;;;; -;;;; $Id: package.lisp,v 1.14 2002/12/03 00:54:08 kevin Exp $ +;;;; $Id: package.lisp,v 1.18 2002/12/26 11:57:07 kevin Exp $ ;;;; ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -23,8 +23,8 @@ (defpackage #:kmrcl (:nicknames :kl) (:use :common-lisp) - (:export #:bind-if - #:bind-when + (:export #:let-if + #:let-when #:aif #:awhen #:awhile @@ -39,6 +39,7 @@ #:ensure-integer #:mklist #:filter + #:appendnew #:memo-proc #:memoize #:defun-memo @@ -52,21 +53,9 @@ #: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 @@ -83,7 +72,26 @@ #:in #:mean #:with-gensyms - + + ;; strings.lisp + #: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 + #:escape-xml-string + #:string-replace-char-string + + ;; symbols.lisp + #:ensure-keyword + #:concat-symbol + #:concat-symbol-pkg + ;; From attrib-class.lisp #:attributes-class #:slot-attribute @@ -119,6 +127,14 @@ #:xml-tag-contents #:positions-xml-tag-contents #:xml-cdata + + ;; From console + *console-msgs* + cmsg + cmsg-c + cmsg-add + cmsg-remove + fixme ))