;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id$
-;;;;
-;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
+;;;; This file, part of KMRCL, is Copyright (c) 2002-2010 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
(defpackage #:kmrcl
(:nicknames #:kl)
- (:use #:cl)
+ (:use #:common-lisp)
(:export
#:ensure-integer
#:mklist
#:string-delimited-string-to-list
#:list-to-delimited-string
#:prefixed-fixnum-string
+ #:prefixed-integer-string
#:integer-string
#:fast-string-search
+ #:string-substitute
#:string-to-list-skip-delimiter
#:string-starts-with
#:count-string-char
#:count-string-char-if
#:hexchar
- #:uriencode-string
- #:uridecode-string
+ #:charhex
+ #:encode-uri-string
+ #:decode-uri-string
+ #:uri-query-to-alist
#:non-alphanumericp
#:random-string
#:first-char
#:string-right-trim-one-char
#:string-strip-ending
#:string-maybe-shorten
+ #:string-elide
#:shrink-vector
-
- #:flatten
+ #:collapse-whitespace
+ #:string->list
+ #:trim-non-alphanumeric
+ #:binary-sequence-to-hex-string
+ #:remove-char-string
;; io.lisp
#:indent-spaces
#:stream-subst
#:null-output-stream
#:directory-tree
+ #:write-utime-hms
+ #:write-utime-hm
+ #:write-utime-ymdhms
+ #:write-utime-ymdhm
+ #:write-utime-hms-stream
+ #:write-utime-hm-stream
+ #:write-utime-ymdhms-stream
+ #:write-utime-ymdhm-stream
+ #:with-utime-decoding
+ #:with-utime-decoding-utc-offset
+ #:is-dst
+ #:year
+ #:month
+ #:day-of-month
+ #:hour
+ #:minute
+ #:second
+ #:daylight-p
+ #:zone
+ #:day-of-month
+ #:day-of-week
+ #:+datetime-number-strings+
+ #:utc-offset
+ #:copy-binary-stream
+ #:def-unsigned-int-io
+ #:make-unsigned-int-io-fn
+ #:read-uint2-le #:read-uint2-be #:write-uint2-le #:write-uint2-be
+ #:read-uint3-le #:read-uint3-be #:write-uint3-le #:write-uint3-be
+ #:read-uint4-le #:read-uint4-be #:write-uint4-le #:write-uint4-be
+ #:read-uint5-le #:read-uint5-be #:write-uint5-le #:write-uint5-be
+ #:read-uint6-le #:read-uint6-be #:write-uint6-le #:write-uint6-be
+ #:read-uint7-le #:read-uint7-be #:write-uint7-le #:write-uint7-be
+ #:read-uint8-le #:read-uint8-be #:write-uint8-le #:write-uint8-be
;; impl.lisp
#:probe-directory
#:cwd
#:quit
#:command-line-arguments
- #:shell-command-output
+ #:copy-file
+ #:run-shell-command
;; lists.lisp
#:remove-from-tree-if
#:plist-alist
#:update-plist
#:get-plist
+ #:flatten
+ #:unique-slot-values
;; seq.lisp
#:nsubseq
-
+
;; math.lisp
#:ensure-integer
-
+ #:histogram
+ #:fixnum-width
+ #:scaled-epsilon
+ #:sinc
+ #:numbers-within-percentage
+
;; macros.lisp
#:time-iterations
+ #:time-seconds
#:in
#:mean
#:with-gensyms
#:mac
#:mv-bind
#:deflex
-
+ #:def-cached-vector
+ #:def-cached-instance
+ #:with-ignore-errors
+ #:ppmx
+ #:defconstant*
+ #:defvar-unbound
+
;; files.lisp
#:print-file-contents
+ #:read-stream-to-string
#:read-file-to-string
+ #:read-file-to-usb8-array
+ #:read-stream-to-strings
#:read-file-to-strings
-
+
;; strings.lisp
#:string-append
#:count-string-words
#:print-separated-strings
#:lex-string
#:split-alphanumeric-string
-
+
;; strmatch.lisp
#:score-multiword-match
#:multiword-match
-
+
;; symbols.lisp
#:ensure-keyword
+ #:ensure-keyword-upcase
+ #:ensure-keyword-default-case
#:concat-symbol
#:concat-symbol-pkg
#:show
#:show-variables
#:show-functions
-
+
;; From attrib-class.lisp
#:attributes-class
#:slot-attribute
#:generalized-equal
;; From buffered input
-
+
#:make-fields-buffer
#:read-buffered-fields
-
+
;; From datetime.lisp
+ #:pretty-date-ut
#:pretty-date
#:date-string
#:print-float-units
#:print-seconds
-
+ #:posix-time-to-utime
+ #:utime-to-posix-time
+
;; From random.lisp
#:seed-random-generator
#:random-choice
-
+
;; From repl.lisp
#:make-repl
#:init/repl
-
+
;; From web-utils
#:*base-url*
#:base-url!
#:*standard-xml-header*
#:user-agent-ie-p
#:decode-uri-query-string
-
+ #:split-uri-query-string
+
;; From xml-utils
- #:wrap-with-xml
+ #:sgml-header-stream
#:xml-tag-contents
#:positions-xml-tag-contents
- #:xml-cdata
- #:write-xml-cdata
-
+ #:cdata-string
+ #:write-cdata
+
;; From console
#:*console-msgs*
#:cmsg
;; sockets.lisp
#:make-active-socket
#:close-active-socket
-
+
;; listener.lisp
#:init/listener
#:stop-all/listener
#:listener
-
+
;; fformat.lisp
#:fformat
;; os.lisp
- #:run-shell-command
-
- ))
+ #:command-output
+ #:run-shell-command-output-stream
+ #:delete-directory-and-files
+ #:file-size
+ #:getpid
+
+ ;; color.lisp
+ #:rgb->hsv
+ #:rgb255->hsv255
+ #:hsv->rgb
+ #:hsv255->rgb255
+ #:hsv-equal
+ #:hsv255-equal
+ #:hsv-similar
+ #:hsv255-similar
+ #:hue-difference
+ #:hue-difference-fixnum
+ ;; signals.lisp
+ #:set-signal-handler
+ #:remove-signal-handler
+ ;; btree.lisp
+ #:sorted-vector-find
+ #:string-tricmp
+ #:simple-string-tricmp
+ #:number-tricmp
+ #:complex-number-tricmp
+ ;; mop.lisp
+ #:short-arg-cesd
+ #:short-arg-dsdc
+ ))