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/service/about-us-service.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'lisp/service/about-us-service.lisp') diff --git a/lisp/service/about-us-service.lisp b/lisp/service/about-us-service.lisp index 3ae7c87..e3df34a 100644 --- a/lisp/service/about-us-service.lisp +++ b/lisp/service/about-us-service.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) (defclass about-us-service (rest-service) () @@ -26,7 +26,7 @@ (with-valid-user (user "about-us-modify") (setf (admin-p instance) nil) (setf (admin-p instance) t)) - (with-woodriverlessons-database + (with-bogenherr-database (let* ((general-pkg (make-instance 'general-pkg)) (about-us (get-about-us general-pkg))) (when about-us @@ -42,7 +42,7 @@ (defun about-us-modify-json () (with-auth (instance about-us/modify-service "about-us-modify") - (with-woodriverlessons-database + (with-bogenherr-database (let* ((general-pkg (make-instance 'general-pkg)) (about-us (get-about-us general-pkg))) (setf (form instance) (make-form "about-us-modify-form" @@ -53,7 +53,7 @@ (defun about-us-modify-submit-json (content) (with-auth (instance about-us/modify-service "about-us-modify") - (with-woodriverlessons-database + (with-bogenherr-database (let* ((general-pkg (make-instance 'general-pkg)) (about-us (get-about-us general-pkg))) (when about-us -- cgit v1.3