X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=package.lisp;h=7499e2566e453186a341cddc08451251c75b9593;hb=6729a4cf6ca2361b36a8ada705e7325b62c2fe54;hp=2e3ea2400ea953cf51d5dab1be6ea3633a9fdce4;hpb=066d1f100407cebbf9b28ee9135d8538876e8c3f;p=kmrcl.git diff --git a/package.lisp b/package.lisp index 2e3ea24..7499e25 100644 --- a/package.lisp +++ b/package.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Apr 2000 ;;;; -;;;; $Id: package.lisp,v 1.31 2003/05/14 21:31:42 kevin Exp $ +;;;; $Id: package.lisp,v 1.39 2003/06/15 07:48:30 kevin Exp $ ;;;; ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -16,13 +16,11 @@ ;;;; (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 @@ -42,9 +40,20 @@ #: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 #:flatten @@ -122,8 +131,10 @@ ;; From attrib-class.lisp #:attributes-class #:slot-attribute + #:slot-attributes + #:generalized-equal - + ;; From buffered input #:make-fields-buffer @@ -150,12 +161,14 @@ #:*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*