From c3b8f1326a874ae08b394020c6279237b0413293 Mon Sep 17 00:00:00 2001 From: ckonstanski Date: Sun, 16 Aug 2026 13:29:16 -0600 Subject: stuff --- lisp/service/generics.lisp | 15 --------------- lisp/service/home-service.lisp | 18 ------------------ 2 files changed, 33 deletions(-) delete mode 100644 lisp/service/generics.lisp delete mode 100644 lisp/service/home-service.lisp (limited to 'lisp/service') 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)))) -- cgit v1.3