57 lines
967 B
Common Lisp
57 lines
967 B
Common Lisp
(defpackage :qotdd
|
|
(:use :cl)
|
|
(:export
|
|
|
|
;; PUBLIC FUNCTIONS
|
|
;;==============================
|
|
|
|
;; server.lisp
|
|
;;--------------------
|
|
:server
|
|
|
|
|
|
;; PRIVATE FUNCTIONS
|
|
;;==============================
|
|
|
|
;; misc.lisp
|
|
;;--------------------
|
|
:value-or
|
|
:iso8601
|
|
:random-item
|
|
|
|
;; quotes.lisp
|
|
;;--------------------
|
|
:get-quotes
|
|
:get-quote
|
|
:get-quote-date
|
|
:remove-quote-date
|
|
|
|
;; server.lisp
|
|
;;--------------------
|
|
:connection-get
|
|
:connection-kill
|
|
:main
|
|
:connection-msg
|
|
|
|
;; stream.lisp
|
|
;;--------------------
|
|
:read-line-until
|
|
:read-line-chunked
|
|
|
|
;; string.lisp
|
|
;;--------------------
|
|
:string-line-list
|
|
:line-list-string
|
|
:string-after-prefix
|
|
:get-line
|
|
:position-line
|
|
:nth-string
|
|
:get-colon-value
|
|
:remove-colon-value
|
|
:min-string-length
|
|
:pad-string
|
|
:getf-string
|
|
:getf-strings))
|
|
|
|
(in-package :qotdd)
|