stuff

1 files changed, 11 insertions, 15 deletions

diff --git a/lisp/service/contact-us-service.lisp b/lisp/service/contact-us-service.lisp
index d97d74c..f754496 100644
--- a/lisp/service/contact-us-service.lisp
+++ b/lisp/service/contact-us-service.lisp
@@ -7,6 +7,16 @@
   ()
   (:documentation ""))
 
+(defclass contact-us/view-service (contact-us-service)
+  ((content :initarg :content
+            :initform nil
+            :accessor content)
+   (form :initarg :form
+         :initform nil
+         :accessor form)
+   (location-p :initform nil))
+  (:documentation ""))
+
 (defun contact-us-form ()
   (make-form "contact-us-form"
              nil
@@ -22,27 +32,13 @@
   (with-noauth (instance contact-us-service)
     t))
 
-(defclass contact-us/view-service (contact-us-service)
-  ((content :initarg :content
-            :initform nil
-            :accessor content)
-   (form :initarg :form
-         :initform nil
-         :accessor form)
-   (location-p :initform nil))
-  (:documentation ""))
-
 (defun contact-us-view-json ()
   (with-noauth (instance contact-us/view-service)
     (setf (form instance) (contact-us-form))))
 
-(defclass contact-us/email-service (contact-us/view-service)
-  ()
-  (:documentation ""))
-
 (defun contact-us-email-json (first_name last_name email phone comments)
   (declare (special first_name last_name email phone comments))
-  (with-noauth (instance contact-us/email-service)
+  (with-noauth (instance contact-us/email-servicea)
     (with-resume-database
       (let ((contact-pkg (make-instance 'contact-pkg))
             (contact-us-post (make-instance 'contact-us-post)))