blob: 4b5807896b3a615c1aedd73aa7bab13d0ff23d5d (
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 :woodriverlessons)
(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 ""))
|
