blob: 162d60bf353a4766cf3ece62ca7d253f0ef9062f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
(declaim (optimize (speed 0) (safety 3) (debug 3)))
(in-package :woodriverlessons)
(defclass general-pkg (record-pkg)
()
(:documentation ""))
(defmethod get-about-us ((general-pkg general-pkg))
(car (get-records general-pkg (make-instance 'about-us) nil)))
(defmethod get-testimonials ((general-pkg general-pkg))
(car (get-records general-pkg (make-instance 'testimonials) nil)))
|
