From cf684daa1eacac996223f6c407074abd019ede4a Mon Sep 17 00:00:00 2001 From: ckonstanski Date: Sun, 22 Dec 2024 18:32:18 -0700 Subject: rename to bogenherrc --- lisp/sql/auth-pkg.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lisp/sql/auth-pkg.lisp') diff --git a/lisp/sql/auth-pkg.lisp b/lisp/sql/auth-pkg.lisp index 54f8c3e..c5f8839 100644 --- a/lisp/sql/auth-pkg.lisp +++ b/lisp/sql/auth-pkg.lisp @@ -1,7 +1,7 @@ ;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*- (declaim (optimize (speed 0) (safety 3) (debug 3))) -(in-package :woodriverlessons) +(in-package :bogenherr) (defparameter *authenticated-user-session-key* "authenticated-user") @@ -165,7 +165,7 @@ (if ,session-name (let* ((auth-pkg (make-instance 'auth-pkg)) (has-all-roles-p (let ((has-all-roles-p t)) - (with-woodriverlessons-database + (with-bogenherr-database (loop for role in (if (listp ,roles) ,roles (list ,roles)) do (when (not (has-role auth-pkg ,session-name role)) (setf has-all-roles-p nil))) -- cgit v1.3