cco/cl-scopes
3
0
Fork 0
Code Issues 1 Pull requests Releases Wiki Activity Actions

fixes related to new actor implementation

Browse source
This commit is contained in:
Helmut Merz 2025-06-03 08:03:07 +02:00
parent 059c99e8de
commit 3509887ad0
2 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lib/auth/auth.lisp
View file

@ -22,7 +22,8 @@
(defun setup (cfg) (defun setup (cfg)
(let* ((auth (make-instance 'simple-authenticator)) (let* ((auth (make-instance 'simple-authenticator))
(ctx (core:default-setup cfg 'context :authenticator auth)) (ctx (funcall (core:make-setup
:class 'context :args '(:authenticator auth)) cfg))
(cred (setup-credentials (admin-credentials cfg))) (cred (setup-credentials (admin-credentials cfg)))
(admin (make-principal :system cred))) (admin (make-principal :system cred)))
(setf (gethash (list :system (name cred)) (principals auth)) admin) (setf (gethash (list :system (name cred)) (principals auth)) admin)

2
web/response.lisp
View file

@ -99,7 +99,7 @@
(defun finish (resp) (defun finish (resp)
(funcall (writer resp) nil :close t) (funcall (writer resp) nil :close t)
(actor:stop resp)) (actor:stop (core:mailbox resp)))
(defun render (resp) (defun render (resp)
#'(lambda (responder) #'(lambda (responder)