;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
;;;; Name:          package.lisp
;;;; Purpose:       Package definition for kmrcl package
;;;; Programmer:    Kevin M. Rosenberg
;;;; Date Started:  Apr 2000
;;;;
;;;; $Id: package.lisp,v 1.6 2002/10/16 21:58:49 kevin Exp $
;;;;
;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
;;;; KMRCL users are granted the rights to distribute and use this software
;;;; as governed by the terms of the Lisp Lesser GNU Public License
;;;; (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)

(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
	  #:std-xml-header
	  #:xml-cdata

	  ;; From web-utils-allegro
	  #: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
	  ))