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.20 2003/02/07 14:21:55 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 Lisp Lesser GNU Public License
  16 ;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
  17 ;;;; *************************************************************************
  18
  19 (declaim (optimize (debug 3) (speed 3) (safety 1) (compilation-speed 0)))
  20
  21 (in-package :cl-user)
  22
  23 (defpackage #:kmrcl
  24   (:nicknames :kl)
  25   (:use :common-lisp)
  26   (:export #:let-if
  27            #:let-when
  28            #:aif
  29           #:awhen
  30           #:awhile
  31           #:aand
  32           #:acond
  33           #:alambda
  34           #:it
  35           #:mac
  36           #:show
  37           #:show-variables
  38           #:show-functions
  39           #:ensure-integer
  40           #:mklist
  41           #:filter
  42           #:appendnew
  43           #:memo-proc
  44           #:memoize
  45           #:defun-memo
  46           #:_f
  47           #:compose
  48           #:until
  49           #:while
  50           #:for
  51           #:mapappend
  52           #:mapcar-append-string
  53           #:mapcar2-append-string
  54           #:delimited-string-to-list
  55           #:list-to-delimited-string
  56           #:indent-spaces
  57           #:print-list
  58           #:print-rows
  59           #:file-subst
  60           #:stream-subst
  61           #:remove-tree-if
  62           #:find-tree
  63           #:with-each-file-line
  64           #:with-each-stream-line
  65           #:print-file-contents
  66           #:read-file-to-string
  67           #:read-file-to-strings
  68           #:add-sql-quotes
  69           #:escape-backslashes
  70           #:remove-keyword
  71           #:remove-keywords
  72           #:in
  73           #:mean
  74           #:with-gensyms
  75           #:time-iterations
  76           #:print-float-units
  77           #:print-seconds
  78           #:nsubseq
  79
  80           ;; strings.lisp
  81           #:string-append
  82           #:count-string-words
  83           #:substitute-string-for-char
  84           #:string-trim-last-character
  85           #:string-hash
  86           #:string-not-null?
  87           #:whitespace?
  88           #:not-whitespace?
  89           #:string-ws?
  90           #:string-invert
  91           #:escape-xml-string
  92           #:string-replace-char-string
  93           #:make-usb8-array
  94           #:usb8-array-to-string
  95           #:string-to-usb8-array
  96
  97           ;; symbols.lisp
  98           #:ensure-keyword
  99           #:concat-symbol
 100           #:concat-symbol-pkg
 101
 102           ;; From attrib-class.lisp
 103           #:attributes-class
 104           #:slot-attribute
 105
 106           #:generalized-equal
 107
 108           ;; From buffered input
 109
 110           #:make-fields-buffer
 111           #:read-buffered-fields
 112
 113           #:pretty-date
 114           #:date-string
 115
 116           ;; From random.lisp
 117           #:seed-random-generator
 118           #:random-choice
 119
 120           ;; From telnet-server.lisp
 121           #:start-telnet-server
 122
 123           ;; From web-utils
 124           #:*base-url*
 125           #:base-url!
 126           #:make-url
 127           #:*standard-html-header*
 128           #:*standard-xhtml-header*
 129           #:*standard-xml-header*
 130           #:user-agent-ie-p
 131
 132           ;; From xml-utils
 133           #:wrap-with-xml
 134           #:xml-tag-contents
 135           #:positions-xml-tag-contents
 136           #:xml-cdata
 137
 138           ;; From console
 139           *console-msgs*
 140           cmsg
 141           cmsg-c
 142           cmsg-add
 143           cmsg-remove
 144           fixme
 145           ))
 146
 147
 148