diff options
| author | ckonstanski <carlos.konstanski@olo.com> | 2021-05-30 22:16:52 -0600 |
|---|---|---|
| committer | ckonstanski <carlos.konstanski@olo.com> | 2021-05-30 22:16:52 -0600 |
| commit | 6f5636fafd7e35d718050449effe4e121a8be1a0 (patch) | |
| tree | e6e70d3c804c3c21c6b7432bf4d9e1bd717f1774 /service | |
| parent | 30421258c56accea65ee52f64599c72f73cb053a (diff) | |
use libraries
Diffstat (limited to 'service')
| -rw-r--r-- | service/auth-service.lisp | 2 | ||||
| -rw-r--r-- | service/base-service.lisp | 2 | ||||
| -rw-r--r-- | service/generic-form.lisp | 2 | ||||
| -rw-r--r-- | service/home-service.lisp | 2 | ||||
| -rw-r--r-- | service/inetorg-add-service.lisp | 2 | ||||
| -rw-r--r-- | service/inetorg-delete-service.lisp | 2 | ||||
| -rw-r--r-- | service/inetorg-modify-service.lisp | 2 | ||||
| -rw-r--r-- | service/inetorg-view-service.lisp | 2 | ||||
| -rw-r--r-- | service/login-service.lisp | 2 | ||||
| -rw-r--r-- | service/logout-service.lisp | 2 | ||||
| -rw-r--r-- | service/menu-service.lisp | 2 | ||||
| -rw-r--r-- | service/rest-service.lisp | 2 |
12 files changed, 12 insertions, 12 deletions
diff --git a/service/auth-service.lisp b/service/auth-service.lisp index d250058..0a84264 100644 --- a/service/auth-service.lisp +++ b/service/auth-service.lisp @@ -1,7 +1,7 @@ ;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*- (declaim (optimize (speed 0) (safety 3) (debug 3))) -(in-package #:ldapadmin) +(in-package :ldapadmin) (defclass auth-service (rest-service) () diff --git a/service/base-service.lisp b/service/base-service.lisp index bc110a3..7eb8fb3 100644 --- a/service/base-service.lisp +++ b/service/base-service.lisp @@ -1,7 +1,7 @@ ;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*- (declaim (optimize (speed 0) (safety 3) (debug 3))) -(in-package #:ldapadmin) +(in-package :ldapadmin) (defclass base-service () () diff --git a/service/generic-form.lisp b/service/generic-form.lisp index e48d653..6e0c821 100644 --- a/service/generic-form.lisp +++ b/service/generic-form.lisp @@ -1,7 +1,7 @@ ;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*- (declaim (optimize (speed 0) (safety 3) (debug 3))) -(in-package #:ldapadmin) +(in-package :ldapadmin) (defclass generic-form (base-service) ((name :initarg :name diff --git a/service/home-service.lisp b/service/home-service.lisp index 5379a9f..b914cae 100644 --- a/service/home-service.lisp +++ b/service/home-service.lisp @@ -1,7 +1,7 @@ ;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*- (declaim (optimize (speed 0) (safety 3) (debug 3))) -(in-package #:ldapadmin) +(in-package :ldapadmin) (defclass home-service (rest-service) ((content :initarg :content diff --git a/service/inetorg-add-service.lisp b/service/inetorg-add-service.lisp index 681da97..a58a10d 100644 --- a/service/inetorg-add-service.lisp +++ b/service/inetorg-add-service.lisp @@ -1,7 +1,7 @@ ;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*- (declaim (optimize (speed 0) (safety 3) (debug 3))) -(in-package #:ldapadmin) +(in-package :ldapadmin) (defclass inetorg-add-service (auth-service) ((form :initarg :form diff --git a/service/inetorg-delete-service.lisp b/service/inetorg-delete-service.lisp index 9f545cd..7c27480 100644 --- a/service/inetorg-delete-service.lisp +++ b/service/inetorg-delete-service.lisp @@ -1,7 +1,7 @@ ;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*- (declaim (optimize (speed 0) (safety 3) (debug 3))) -(in-package #:ldapadmin) +(in-package :ldapadmin) (defclass inetorg-delete-service (auth-service) ((cn :initarg :cn diff --git a/service/inetorg-modify-service.lisp b/service/inetorg-modify-service.lisp index 47ca6cd..89e5b9b 100644 --- a/service/inetorg-modify-service.lisp +++ b/service/inetorg-modify-service.lisp @@ -1,7 +1,7 @@ ;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*- (declaim (optimize (speed 0) (safety 3) (debug 3))) -(in-package #:ldapadmin) +(in-package :ldapadmin) (defclass inetorg-modify-service (auth-service) ((form :initarg :form diff --git a/service/inetorg-view-service.lisp b/service/inetorg-view-service.lisp index ab89123..379b1b0 100644 --- a/service/inetorg-view-service.lisp +++ b/service/inetorg-view-service.lisp @@ -1,7 +1,7 @@ ;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*- (declaim (optimize (speed 0) (safety 3) (debug 3))) -(in-package #:ldapadmin) +(in-package :ldapadmin) (defclass inetorg-view-service (auth-service) ((title :initarg :title diff --git a/service/login-service.lisp b/service/login-service.lisp index 1e895be..82b647c 100644 --- a/service/login-service.lisp +++ b/service/login-service.lisp @@ -1,7 +1,7 @@ ;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*- (declaim (optimize (speed 0) (safety 3) (debug 3))) -(in-package #:ldapadmin) +(in-package :ldapadmin) (defclass login-service (rest-service) ((form :initarg :form diff --git a/service/logout-service.lisp b/service/logout-service.lisp index d7ab412..59a9968 100644 --- a/service/logout-service.lisp +++ b/service/logout-service.lisp @@ -1,7 +1,7 @@ ;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*- (declaim (optimize (speed 0) (safety 3) (debug 3))) -(in-package #:ldapadmin) +(in-package :ldapadmin) (defclass logout-service (rest-service) ((location-p :initform nil)) diff --git a/service/menu-service.lisp b/service/menu-service.lisp index 0b82f22..728b8e5 100644 --- a/service/menu-service.lisp +++ b/service/menu-service.lisp @@ -1,7 +1,7 @@ ;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*- (declaim (optimize (speed 0) (safety 3) (debug 3))) -(in-package #:ldapadmin) +(in-package :ldapadmin) (defparameter *menu-config* '((:id "a_menu_home" :label "Home" :handler "/home" :permissions "t") (:id "a_menu_login" :label "Login" :handler "/login" :permissions "anonymous") diff --git a/service/rest-service.lisp b/service/rest-service.lisp index e57af23..ff66dd4 100644 --- a/service/rest-service.lisp +++ b/service/rest-service.lisp @@ -1,7 +1,7 @@ ;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*- (declaim (optimize (speed 0) (safety 3) (debug 3))) -(in-package #:ldapadmin) +(in-package :ldapadmin) (defclass rest-service (base-service) ((location :initarg :location |
