stuff

2 files changed, 0 insertions, 33 deletions

diff --git a/lisp/service/generics.lisp b/lisp/service/generics.lisp
deleted file mode 100644
index caca29b..0000000
--- a/lisp/service/generics.lisp
+++ /dev/null
@@ -1,15 +0,0 @@
-;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
-(declaim (optimize (speed 0) (safety 3) (debug 3)))
-
-(in-package :resume)
-
-(defgeneric copy-from-record (base-service record)
-  (:documentation "Copies the fields from `record' to
-`base-service'."))
-
-(defgeneric copy-to-record (base-service record)
-  (:documentation "Copies the fields from `base-service' to
-`record'."))
-
-(defgeneric sanitize-rest-json (rest-service)
-  (:documentation ""))
diff --git a/lisp/service/home-service.lisp b/lisp/service/home-service.lisp
deleted file mode 100644
index 8e8a740..0000000
--- a/lisp/service/home-service.lisp
+++ /dev/null
@@ -1,18 +0,0 @@
-;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
-(declaim (optimize (speed 0) (safety 3) (debug 3)))
-
-(in-package :resume)
-
-(defclass home-service (rest-service)
-  ((content :initarg :content
-            :initform nil
-            :accessor content))
-  (:documentation ""))
-
-(defmethod initialize-instance :after ((home-service home-service) &key)
-  t)
-
-(defun home-json (&optional message errormsg)
-  (with-noauth (instance home-service)
-    (when (not (org-ckons-core::null-or-empty-p message)) (setf (message instance) message))
-    (when (not (org-ckons-core::null-or-empty-p errormsg)) (setf (errormsg instance) errormsg))))