13 lines
338 B
Common Lisp
13 lines
338 B
Common Lisp
;;;; cl-scopes/lib/auth/web - authentication web interface
|
|
|
|
(defpackage :scopes-auth/web
|
|
(:use :common-lisp)
|
|
(:local-nicknames (:auth :scopes-auth)
|
|
(:config :scopes/config)
|
|
(:core :scopes/core))
|
|
(:export #:login))
|
|
|
|
(in-package :scopes-auth/web)
|
|
|
|
(defun login (ctx msg)
|
|
(core:echo ctx msg))
|