macro plus react now works

1 files changed, 10 insertions, 10 deletions

diff --git a/lisp/service/resume-service.lisp b/lisp/service/resume-service.lisp
index 66b0e7b..46badc6 100644
--- a/lisp/service/resume-service.lisp
+++ b/lisp/service/resume-service.lisp
@@ -21,20 +21,20 @@
               `(:label ,level :value ,level))
             '("A1" "A2" "B1" "B2" "C1" "C2")))
 
-  (defclass resume-service (auth-service)
+  (defclass resume/resume-service (auth-service)
     ((title :initarg :title
             :initform nil
             :accessor title))
     (:documentation ""))
 
-  (defclass resume-component/view-service (resume-service)
+  (defclass resume/resume-component/view-service (resume/resume-service)
     ((components :initarg components
                  :initform nil
                  :accessor components)
      (location-p :initform nil))
     (:documentation ""))
 
-  (defclass resume-component/modify-service (resume-component/view-service)
+  (defclass resume/resume-component/modify-service (resume/resume-component/view-service)
     ((form :initarg :form
            :initform nil
            :accessor form))
@@ -71,11 +71,11 @@ needs to JOIN with other data."
          (form-modify (format nil "~a-modify-form" component-lcase)))
     `(progn
        (defun ,func-root-s ()
-         (with-auth (instance resume-service "resume-view")
+         (with-auth (instance resume/resume-service "resume-view")
            (setf (title instance) ,component)))
 
        (defun ,func-view-s ()
-         (with-auth (instance resume-component/view-service "resume-view")
+         (with-auth (instance resume/resume-component/view-service "resume-view")
            (with-resume-database
              (let ((resume-pkg (make-instance 'resume-pkg))
                    (user (get-user)))
@@ -89,7 +89,7 @@ needs to JOIN with other data."
                  do (sanitize-json component))))
        
        (defun ,func-add-s ()
-         (with-auth (instance resume-component/modify-service "resume-modify")
+         (with-auth (instance resume/resume-component/modify-service "resume-modify")
            (with-resume-database
              (let ((resume-pkg (make-instance 'resume-pkg)))
                (setf (title instance) (format nil "~a - Add" ,component))
@@ -100,7 +100,7 @@ needs to JOIN with other data."
 
        (defun ,func-add-submit-s (,@arg-names)
          (declare (special ,@arg-names))
-         (with-auth (instance resume-component/modify-service "resume-modify")
+         (with-auth (instance resume/resume-component/modify-service "resume-modify")
            (with-resume-database
              (handler-case
                  (let* ((resume-pkg (make-instance 'resume-pkg))
@@ -116,7 +116,7 @@ needs to JOIN with other data."
                  (setf (session-value :errormsg) (format nil "Error creating ~a. ~a" ,component e)))))))
 
        (defun ,func-modify-s (id)
-         (with-auth (instance resume-component/modify-service "resume-modify")
+         (with-auth (instance resume/resume-component/modify-service "resume-modify")
            (setf (title instance) (format nil "~a - Modify" ,component))
            (with-resume-database
              (let* ((resume-pkg (make-instance 'resume-pkg))
@@ -134,7 +134,7 @@ needs to JOIN with other data."
 
        (defun ,func-modify-submit-s (,@(append '(id) arg-names))
          (declare (special ,@(append '(id) arg-names)))
-         (with-auth (instance resume-component/modify-service "resume-modify")
+         (with-auth (instance resume/resume-component/modify-service "resume-modify")
            (setf (title instance) (format nil "~a - Modify" ,component))
            (with-resume-database
              (handler-case
@@ -156,7 +156,7 @@ needs to JOIN with other data."
                  (setf (session-value :errormsg) (format nil "Error modifying ~a. ~a" ,component e)))))))
 
        (defun ,func-delete-s (id)
-         (with-auth (instance resume-component/modify-service "resume-modify")
+         (with-auth (instance resume/resume-component/modify-service "resume-modify")
            (with-resume-database
              (let* ((resume-pkg (make-instance 'resume-pkg))
                     (user (get-user))