use libraries

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))