package.lisp

   1 ;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
   2 ;;;; *************************************************************************
   3 ;;;; FILE IDENTIFICATION
   4 ;;;;
   5 ;;;; Name:          package.lisp
   6 ;;;; Purpose:       Package definition for kmrcl package
   7 ;;;; Programmer:    Kevin M. Rosenberg
   8 ;;;; Date Started:  Apr 2000
   9 ;;;;
  10 ;;;; $Id: package.lisp,v 1.3 2002/10/09 14:24:47 kevin Exp $
  11 ;;;;
  12 ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
  13 ;;;;
  14 ;;;; KMRCL users are granted the rights to distribute and use this software
  15 ;;;; as governed by the terms of the GNU General Public License.
  16 ;;;; *************************************************************************
  17
  18 (declaim (optimize (debug 3) (speed 3) (safety 1) (compilation-speed 0)))
  19
  20 (in-package :cl-user)
  21
  22 (defpackage #:kmrcl
  23   (:nicknames :kl)
  24   (:use :common-lisp
  25         #+(or aserve allegro) :net.html.generator
  26         #+(or aserve allegro) :net.aserve
  27         #+allegro :net.xml.parser
  28         )
  29   (:export #:bind-if
  30            #:bind-when
  31            #:aif
  32           #:awhen
  33           #:awhile
  34           #:aand
  35           #:acond
  36           #:alambda
  37           #:it
  38           #:mac
  39           #:show
  40           #:show-variables
  41           #:show-functions
  42           #:ensure-integer
  43           #:mklist
  44           #:filter
  45           #:memo-proc
  46           #:memoize
  47           #:defun-memo
  48           #:_f
  49           #:compose
  50           #:until
  51           #:while
  52           #:for
  53           #:mapappend
  54           #:mapcar-append-string
  55           #:mapcar2-append-string
  56           #:delimited-string-to-list
  57           #:list-to-delimited-string
  58           #:string-append
  59           #:count-string-words
  60           #:substitute-string-for-char
  61           #:string-trim-last-character
  62           #:string-hash
  63           #:string-not-null?
  64           #:whitespace?
  65           #:not-whitespace?
  66           #:string-ws?
  67           #:string-invert
  68           #:indent-spaces
  69           #:print-list
  70           #:print-rows
  71           #:concat-symbol
  72           #:concat-symbol-pkg
  73           #:file-subst
  74           #:stream-subst
  75           #:remove-tree-if
  76           #:find-tree
  77           #:print-file-contents
  78           #:read-file-to-string
  79           #:read-file-to-strings
  80           #:add-sql-quotes
  81           #:escape-backslashes
  82           #:remove-keyword
  83           #:remove-keywords
  84           #:in
  85           #:mean
  86           #:with-gensyms
  87
  88           ;; From attrib-class.lisp
  89           #:attributes-class
  90           #:slot-attribute
  91
  92           #:generalized-equal
  93
  94           ;; From buffered input
  95
  96           #:make-fields-buffer
  97           #:read-buffered-fields
  98
  99           #:pretty-date
 100           #:date-string
 101
 102           ;; From random.lisp
 103           #:seed-random-generator
 104           #:random-choice
 105
 106
 107           ;; From pipes.lisp
 108           #:+empty-pipe+
 109           #:make-pipe
 110           #:pipe-tail
 111           #:pipe-head
 112           #:pipe-elt
 113           #:enumerate
 114           #:pipe-display
 115           #:pipe-force
 116           #:pipe-filter
 117           #:pipe-map
 118           #:pipe-map-filtering
 119           #:pipe-append
 120           #:pipe-mappend
 121           #:pipe-mappend-filtering
 122
 123           ;; From telnet-server.lisp
 124           #:start-telnet-server
 125
 126           ;; From web-utils
 127           #:std-xml-header
 128           #:xml-cdata
 129
 130           ;; From web-utils-allegro
 131           #:cgi-var
 132           #:print-http
 133           #:princ-http
 134           #:base-url!
 135           #:make-url
 136           #:with-tag
 137           #:with-tag-attribute
 138           #:princ-http-with-color
 139           #:princ-http-with-size
 140           #:with-link
 141           #:home-link
 142           #:head
 143           #:with-xml-page
 144           #:with-trans-page
 145           #:wrap-with-xml
 146           #:parse-xml-no-ws
 147           #:positions-xml-tag-contents
 148           #:xml-tag-contents
 149           #:encode-query
 150
 151           ;; From ml-class.lisp
 152           #:ml-class
 153           #:ml-class-title
 154           #:load-all-subobjects
 155           #:display-ml-class
 156           #:xml-cdata
 157           ))
 158
 159
 160