;;;; -*- Mode: Lisp; Base: 10; Syntax: ANSI-Common-Lisp; Package: system; Coding: utf-8 -*-
;;;; Copyright © 2018 David Mullen. All Rights Reserved. Origin: <https://cl-pdx.com/kira/>

(in-package :system)

(defpackage :kira
    (:use :common-lisp)
  (:import-from
   :ccl
   #:%%get-signed-longlong
   #:%%get-unsigned-longlong
   #:%address-of
   #:%get-bit
   #:%get-bitfield
   #:%get-cstring
   #:%get-double-float
   #:%get-natural
   #:%get-ptr
   #:%get-signed-byte
   #:%get-signed-long
   #:%get-signed-word
   #:%get-single-float
   #:%get-unsigned-byte
   #:%get-unsigned-long
   #:%get-unsigned-word
   #:%inc-ptr
   #:%incf-ptr
   #:%int-to-ptr
   #:%null-ptr-p
   #:%ptr-to-int
   #:%setf-macptr
   #:%stack-block
   #:*current-process*
   #:*default-external-format*
   #:*default-file-character-encoding*
   #:*default-line-termination*
   #:*default-socket-character-encoding*
   #:*lisp-cleanup-functions*
   #:*lisp-startup-functions*
   #:+null-ptr+
   #:accept-connection
   #:advise
   #:advisedp
   #:all-processes
   #:array-data-and-offset
   #:back-translate-pathname
   #:close-shared-library
   #:copy-file
   #:coerce-to-function
   #:count-characters-in-octet-vector
   #:current-directory
   #:decode-string-from-octets
   #:defstatic
   #:defstaticvar
   #:directory-pathname-p
   #:disassemble-to-file
   #:dispose-heap-ivector
   #:encode-string-to-octets
   #:ensure-directory-pathname
   #:ensure-simple-string
   #:external-format
   #:external-format-character-encoding
   #:external-format-line-termination
   #:external-process
   #:external-process-error-stream
   #:external-process-input-stream
   #:external-process-output-stream
   #:external-process-status
   #:file-data-size
   #:find-definition-sources
   #:find-process
   #:fixnump
   #:foreign-symbol-address
   #:foreign-symbol-entry
   #:free
   #:get-encoded-string
   #:get-output-stream-vector
   #:get-timezone
   #:getenv
   #:gettimeofday
   #:grab-lock
   #:hash-table-weak-p
   #:heap-ivector-utilization
   #:heap-utilization
   #:intern-eql-specializer
   #:join-process
   #:lock-name
   #:macptr
   #:macptrp
   #:make-external-format
   #:make-gcable-record
   #:make-heap-ivector
   #:make-lock
   #:make-population
   #:make-process
   #:make-read-write-lock
   #:make-record
   #:make-semaphore
   #:make-socket
   #:make-vector-input-stream
   #:make-vector-output-stream
   #:map-file-to-ivector
   #:map-file-to-octet-vector
   #:mapped-vector-data-address-and-size
   #:method-function
   #:native-translated-namestring
   #:normalize-external-format
   #:normalize-lambda-list
   #:object-direct-size
   #:open-shared-library
   #:parse-body
   #:population-contents
   #:population-type
   #:pref
   #:process-abort
   #:process-enable
   #:process-input-wait
   #:process-interrupt
   #:process-kill
   #:process-name
   #:process-output-wait
   #:process-plist
   #:process-preset
   #:process-reset
   #:process-reset-and-enable
   #:process-run-function
   #:process-serial-number
   #:process-whostate
   #:proper-list-p
   #:quit
   #:quoted-form-p
   #:release-lock
   #:require-type
   #:rlet
   #:rletz
   #:run-program
   #:save-application
   #:self-evaluating-p
   #:signal-external-process
   #:signal-semaphore
   #:snarf-url
   #:stream-deadline
   #:stream-input-timeout
   #:stream-output-timeout
   #:stream-length
   #:string-size-in-octets
   #:terminate
   #:terminate-when-unreachable
   #:timed-wait-on-semaphore
   #:try-lock
   #:type-expand
   #:unadvise
   #:unmap-ivector
   #:unmap-octet-vector
   #:unwatch
   #:vector-input-stream
   #:vector-output-stream
   #:wait-on-semaphore
   #:watch
   #:whitespacep
   #:with-encoded-cstrs
   #:with-input-from-vector
   #:with-input-timeout
   #:with-interrupts-enabled
   #:with-lock-grabbed
   #:with-macptrs
   #:with-open-socket
   #:with-output-timeout
   #:with-output-to-vector
   #:with-pointer-to-ivector
   #:with-read-lock
   #:with-terminal-input
   #:with-write-lock
   #:without-interrupts
   #:write-escaped-string
   #:write-simple-string)
  (:export
   #:$lexer-end
   #:$lexer-position
   #:$lexer-start
   #:$lexer-string
   #:&attributes
   #:*base-uri*
   #:*html-output*
   #:*object-database*
   #:*request*
   #:*session*
   #:+array-tag+
   #:+bad-request+
   #:+bignum-tag+
   #:+binary-external-format+
   #:+bit-vector-tag+
   #:+canonical-xml-declaration+
   #:+century+
   #:+c-hours+
   #:+character-tag+
   #:+char-class-bits+
   #:+complex-tag+
   #:+content-external-format+
   #:+dotted-list-tag+
   #:+double-float-tag+
   #:+empty-html-elements+
   #:+fixnum-tag+
   #:+forbidden+
   #:+hash-table-tag+
   #:+header-external-format+
   #:+html-content-type+
   #:+keyword-tag+
   #:+kira-tag+
   #:+local-time-tag+
   #:+meta-object-id+
   #:+method-not-allowed+
   #:+moved-permanently+
   #:+moved-temporarily+
   #:+not-found+
   #:+object-buffer-size+
   #:+object-cache-size+
   #:+object-record-tag+
   #:+object-tag+
   #:+octet-vector-tag+
   #:+ok+
   #:+pathname-tag+
   #:+proper-list-tag+
   #:+ratio-tag+
   #:+session-code-bits+
   #:+session-days-alive+
   #:+session-renewal-at+
   #:+simple-vector-tag+
   #:+single-float-tag+
   #:+text-tag+
   #:+uri-tag+
   #:+utc-tag+
   #:822-time
   #:absf
   #:absolute-uri-to
   #:alpha
   #:alphanumeric
   #:appendf
   #:array-index
   #:ascii
   #:ascii-char
   #:ascii-char-p
   #:ashf
   #:author
   #:authorization-time
   #:binary-fixnum
   #:binary-symbol-sequence
   #:binary-word
   #:body
   #:butlastf
   #:cache-xml
   #:can-edit-p
   #:canonical-name
   #:canonical-path
   #:char-class
   #:char-class-expand
   #:char-class-expand-1
   #:char-class-p
   #:char-of-class-p
   #:check-vector-bounds
   #:close-database
   #:coercef
   #:collapse
   #:collect
   #:collecting
   #:commit
   #:compact-database
   #:constant-octet-vector
   #:cookie-session
   #:copy-binary-object
   #:copy-local-time
   #:copy-uri
   #:day-name
   #:decode-content-from-octets
   #:decode-local-time
   #:define-block-markup
   #:define-char-class
   #:define-html-macro
   #:define-inline-markup
   #:define-persistent-class
   #:defstatus
   #:deletef
   #:delete-term
   #:digit
   #:do-terms
   #:edited-time
   #:encode-local-time
   #:end-tag
   #:ensure-list
   #:escape-html
   #:eval-always
   #:expiration-time
   #:fail-safe
   #:file
   #:file-name
   #:file-string
   #:files-equal
   #:find-quad
   #:find-slot-layout
   #:forbidden-if-not
   #:gc
   #:get-binary-array
   #:get-binary-bit-vector
   #:get-binary-complex
   #:get-binary-dotted-list
   #:get-binary-double-float
   #:get-binary-hash-table
   #:get-binary-integer
   #:get-binary-keyword
   #:get-binary-object
   #:get-binary-octet-vector
   #:get-binary-pathname
   #:get-binary-proper-list
   #:get-binary-ratio
   #:get-binary-simple-vector
   #:get-binary-single-float
   #:get-binary-string
   #:get-binary-symbol
   #:get-binary-time
   #:get-binary-uri
   #:get-expiration-time
   #:get-inferior-object
   #:get-local-time
   #:get-localized-time
   #:get-mmap-displaced-vector
   #:get-object
   #:get-root
   #:get-term
   #:get-token
   #:grab
   #:graphic
   #:handle
   #:home
   #:horizontal-whitespace
   #:html
   #:html-macroexpand
   #:html-macroexpand-1
   #:html-macro-function
   #:http-serve
   #:initialize-slot
   #:ip-address
   #:kira
   #:lexer-advance-if
   #:lexer-case
   #:lexer-error
   #:lexer-error-thing
   #:lexer-error-string
   #:lexer-error-position
   #:lexer-find
   #:lexer-hex-digit
   #:lexer-integer
   #:lexer-match
   #:lexer-skip
   #:lexer-unsigned
   #:list-commits
   #:local-time
   #:local-time-day
   #:local-time-day-of-week
   #:local-time-msec
   #:local-time-p
   #:local-time-sec
   #:local-time-zone
   #:local-time/=
   #:local-time<
   #:local-time<=
   #:local-time=
   #:local-time>
   #:local-time>=
   #:log-condition
   #:logiorf
   #:logxorf
   #:lower-case
   #:macro-eval
   #:make-buffer
   #:make-char-class
   #:make-local-time
   #:make-request
   #:make-uri
   #:map-terms
   #:mark-dirty-object
   #:match-symbol
   #:maxf
   #:meta-object
   #:minf
   #:mmap
   #:month-name
   #:munmap
   #:nbutlastf
   #:nconcf
   #:normalize-local-time
   #:nreversef
   #:object
   #:object-database
   #:object-id
   #:object-layout
   #:object-lock
   #:object-pointer
   #:octet
   #:open-database
   #:open-temporary-file
   #:orf
   #:pages
   #:parameter
   #:parameter-object
   #:parse-html-tag
   #:parse-timestring
   #:parse-uri
   #:password
   #:pathname-uri
   #:percent-decode
   #:percent-encode
   #:persistent-slot-value
   #:pop-segment
   #:post
   #:posted-time
   #:print-day-name
   #:print-local-time
   #:print-month-name
   #:print-zone
   #:push-to-log
   #:qar
   #:qbr
   #:qcr
   #:qdr
   #:quad
   #:rebinding
   #:redirect
   #:removef
   #:render-action-link
   #:render-content
   #:render-link
   #:render-local-time
   #:render-text
   #:render-title
   #:render-xml
   #:renew-session-p
   #:request
   #:request-address
   #:request-cookie
   #:request-method
   #:request-parameters
   #:request-uri
   #:reset-buffer
   #:reset-object
   #:resolve-uri
   #:response
   #:reversef
   #:rewind-database
   #:rollback
   #:sans
   #:sansf
   #:session
   #:session-code
   #:session-cookie
   #:session-log
   #:session-name
   #:session-pad
   #:session-token
   #:set-if-changed
   #:skip-binary-object
   #:slot-area
   #:slot-layout
   #:sortf
   #:start-server
   #:start-tag
   #:ternary-node
   #:ternary-node-data
   #:ternary-node-label
   #:ternary-node-left
   #:ternary-node-middle
   #:ternary-node-priority
   #:ternary-node-right
   #:title
   #:type-equal
   #:typed-pathname
   #:universal-time
   #:unix-time
   #:update-object-index
   #:updated-time
   #:upload-time
   #:upper-case
   #:uproot
   #:uri
   #:uri-alist
   #:uri-authority
   #:uri-fragment
   #:uri-host
   #:uri-object
   #:uri-path
   #:uri-port
   #:uri-query
   #:uri-scheme
   #:uri-segments
   #:uri-string
   #:uri-to
   #:uri-user
   #:uri=
   #:versioned-uri
   #:vertical-whitespace
   #:whereas
   #:whitespace
   #:with-array-data
   #:with-binary-chunk
   #:with-binary-chunk-iterator
   #:with-gensyms
   #:with-heap-ivector
   #:with-lexer
   #:with-lexer-error
   #:with-open-log
   #:with-temporary-file
   #:with-xml-element
   #:word
   #:write-binary-array
   #:write-binary-bit-vector
   #:write-binary-complex
   #:write-binary-cons
   #:write-binary-double-float
   #:write-binary-hash-table
   #:write-binary-integer
   #:write-binary-keyword
   #:write-binary-length
   #:write-binary-object
   #:write-binary-octet-vector
   #:write-binary-pathname
   #:write-binary-ratio
   #:write-binary-simple-vector
   #:write-binary-single-float
   #:write-binary-string
   #:write-binary-symbol
   #:write-binary-time
   #:write-binary-uri
   #:write-binary-word))