projects
/
kmrcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r3555: *** empty log message ***
[kmrcl.git]
/
package.lisp
diff --git
a/package.lisp
b/package.lisp
index 90054ecaf14ab122ecda47a90292ce5706e0aea0..757c9165bcff0bbeff02aa588d3e9e9722f32fb0 100644
(file)
--- a/
package.lisp
+++ b/
package.lisp
@@
-7,7
+7,7
@@
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id: package.lisp,v 1.
7 2002/10/16 22:59:27
kevin Exp $
+;;;; $Id: package.lisp,v 1.
15 2002/12/04 16:49:23
kevin Exp $
;;;;
;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
;;;;
;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
@@
-22,13
+22,9
@@
(defpackage #:kmrcl
(:nicknames :kl)
(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
+ (:use :common-lisp)
+ (:export #:let-if
+ #:let-when
#:aif
#:awhen
#:awhile
#:aif
#:awhen
#:awhile
@@
-75,6
+71,8
@@
#:stream-subst
#:remove-tree-if
#:find-tree
#:stream-subst
#:remove-tree-if
#:find-tree
+ #:with-each-file-line
+ #:with-each-stream-line
#:print-file-contents
#:read-file-to-string
#:read-file-to-strings
#:print-file-contents
#:read-file-to-string
#:read-file-to-strings
@@
-104,57
+102,22
@@
#:seed-random-generator
#:random-choice
#: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
;; From telnet-server.lisp
#:start-telnet-server
;; From web-utils
- #:*std-html-header*
- #:*std-xhtml-header*
- #:*std-xml-header*
- #:xml-cdata
-
- ;; From web-utils-allegro
- #:cgi-var
- #:print-http
- #:princ-http
+ #:*base-url*
#:base-url!
#:make-url
#:base-url!
#:make-url
- #:with-tag
- #:with-tag-attribute
- #:princ-http-with-color
- #:princ-http-with-size
- #:with-link
- #:home-link
- #:head
- #:with-page
+ #:*standard-html-header*
+ #:*standard-xhtml-header*
+ #:*standard-xml-header*
+ #:user-agent-ie-p
+
+ ;; From xml-utils
#:wrap-with-xml
#:wrap-with-xml
- #:parse-xml-no-ws
- #:positions-xml-tag-contents
#:xml-tag-contents
#:xml-tag-contents
- #:encode-query
-
- ;; From ml-class.lisp
- #:ml-class
- #:ml-class-title
- #:load-all-subobjects
- #:display-ml-class
+ #:positions-xml-tag-contents
#:xml-cdata
))
#:xml-cdata
))