summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat
-rw-r--r--condition/condition.lisp2
-rw-r--r--core/core.lisp2
-rw-r--r--entity/entity.lisp2
-rw-r--r--entity/generics.lisp2
-rw-r--r--entity/ldap-user.lisp2
-rw-r--r--ldap/generics.lisp2
-rw-r--r--ldap/ldap.lisp2
-rw-r--r--ldapadmin.asd6
-rw-r--r--service/auth-service.lisp2
-rw-r--r--service/base-service.lisp2
-rw-r--r--service/generic-form.lisp2
-rw-r--r--service/home-service.lisp2
-rw-r--r--service/inetorg-add-service.lisp2
-rw-r--r--service/inetorg-delete-service.lisp2
-rw-r--r--service/inetorg-modify-service.lisp2
-rw-r--r--service/inetorg-view-service.lisp2
-rw-r--r--service/login-service.lisp2
-rw-r--r--service/logout-service.lisp2
-rw-r--r--service/menu-service.lisp2
-rw-r--r--service/rest-service.lisp2
-rw-r--r--webapps/ldapadmin/clojurescript/ldapadmin/src/core.cljs2
-rw-r--r--webapps/ldapadmin/site.lisp2
-rw-r--r--webapps/webapp-loader.lisp2
23 files changed, 25 insertions, 25 deletions
diff --git a/condition/condition.lisp b/condition/condition.lisp
index 4b576bc..9fb353a 100644
--- a/condition/condition.lisp
+++ b/condition/condition.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)
(define-condition handled-error (error)
((text :initarg :text :reader text)))
diff --git a/core/core.lisp b/core/core.lisp
index 259e15b..e42b1d2 100644
--- a/core/core.lisp
+++ b/core/core.lisp
@@ -5,4 +5,4 @@
(:use :cl :cl-log :hunchentoot)
(:export :ldapadmin))
-(in-package #:ldapadmin)
+(in-package :ldapadmin)
diff --git a/entity/entity.lisp b/entity/entity.lisp
index 327fb2f..ea665e2 100644
--- a/entity/entity.lisp
+++ b/entity/entity.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 entity ()
()
diff --git a/entity/generics.lisp b/entity/generics.lisp
index b14aa9a..510c7db 100644
--- a/entity/generics.lisp
+++ b/entity/generics.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)
(defgeneric attribute-value-list (entity &optional keep-nulls)
(:documentation "Builds an alist of attribute/value pairs."))
diff --git a/entity/ldap-user.lisp b/entity/ldap-user.lisp
index 9097e54..282592b 100644
--- a/entity/ldap-user.lisp
+++ b/entity/ldap-user.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 ldap-user (entity)
((givenname :initarg :givenname
diff --git a/ldap/generics.lisp b/ldap/generics.lisp
index 8378a23..ed8a839 100644
--- a/ldap/generics.lisp
+++ b/ldap/generics.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)
(defgeneric disconnect (ldap)
(:documentation ""))
diff --git a/ldap/ldap.lisp b/ldap/ldap.lisp
index 2d477e4..b7ec502 100644
--- a/ldap/ldap.lisp
+++ b/ldap/ldap.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 ldap ()
((ldap-host :initarg :ldap-host
diff --git a/ldapadmin.asd b/ldapadmin.asd
index 20d6303..08f3210 100644
--- a/ldapadmin.asd
+++ b/ldapadmin.asd
@@ -1,10 +1,10 @@
;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
(declaim (optimize (speed 0) (safety 3) (debug 3)))
-(in-package #:cl)
+(in-package :cl)
-(defpackage #:ldapadmin-system (:use #:cl #:asdf))
-(in-package #:ldapadmin-system)
+(defpackage :ldapadmin-system (:use :cl :asdf))
+(in-package :ldapadmin-system)
(defmacro do-defsystem (&key name version maintainer author description long-description depends-on components)
`(defsystem ,name
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
diff --git a/webapps/ldapadmin/clojurescript/ldapadmin/src/core.cljs b/webapps/ldapadmin/clojurescript/ldapadmin/src/core.cljs
index d3f0374..925b673 100644
--- a/webapps/ldapadmin/clojurescript/ldapadmin/src/core.cljs
+++ b/webapps/ldapadmin/clojurescript/ldapadmin/src/core.cljs
@@ -173,7 +173,7 @@
[:h3 {:style "text-align: center"} (get jsonobj "title")]
[:div {:id "search"}]
[:div {:id "results"}]
- [:div {:id "modify"
+ß [:div {:id "modify"
:class "modal fade"
:role "dialog"}
[:div {:class "modal-dialog modal-lg"}
diff --git a/webapps/ldapadmin/site.lisp b/webapps/ldapadmin/site.lisp
index eb644bd..5b5163a 100644
--- a/webapps/ldapadmin/site.lisp
+++ b/webapps/ldapadmin/site.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)
(defmacro .base (&optional (onload-fn "goto_location('/home')"))
`(org-ckons-http::html5
diff --git a/webapps/webapp-loader.lisp b/webapps/webapp-loader.lisp
index 56df461..555d493 100644
--- a/webapps/webapp-loader.lisp
+++ b/webapps/webapp-loader.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)
(defvar *acceptor* nil)
(defvar *dispatch-table* '(#'dispatch-easy-handlers #'default-dispatcher))
generated by cgit v1.3 (git 2.53.0) at 2026-09-24 13:38:15 +0000