18 lines
573 B
Common Lisp
18 lines
573 B
Common Lisp
;;;; cl-scopes/web/server - web server functionality
|
|
|
|
(defpackage :scopes/web/server
|
|
(:use :common-lisp)
|
|
(:local-nicknames (:config :scopes/config))
|
|
(:export #:config #:address #:port
|
|
#:*server*))
|
|
|
|
(in-package :scopes/web/server)
|
|
|
|
(defclass config (config:base)
|
|
((address :reader address :initarg :address :initform "localhost")
|
|
(port :reader port :initarg :port :initform "8888")))
|
|
|
|
(defmethod initialize-instance :after ((cfg config) &key &allow-other-keys)
|
|
(config:hash-to-slots (config:env-data cfg) cfg '(address port)))
|
|
|
|
(defvar *server* nil)
|