blob: 592d245350fc126983fd406d452baf0c39b80c85 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
(declaim (optimize (speed 0) (safety 3) (debug 3)))
(in-package :bogenherr)
(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 ""))
|
