-
Notifications
You must be signed in to change notification settings - Fork 9
/
abstract-classes.lisp
41 lines (28 loc) · 1.57 KB
/
abstract-classes.lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
;;; -*- Package: de.setf.amqp.implementation; -*-
(in-package :de.setf.amqp.implementation)
(:documentation "This file defines abstract protocol classes for AMPQ version 0.9r1 components of the
`de.setf.amqp` library."
(copyright
"Copyright 2010 [james anderson](mailto:james.anderson@setf.de) All Rights Reserved"
"'de.setf.amqp' is free software: you can redistribute it and/or modify it under the terms of version 3
of the GNU Affero General Public License as published by the Free Software Foundation.
'setf.amqp' is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the
implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
See the Affero General Public License for more details.
A copy of the GNU Affero General Public License should be included with 'de.setf.amqp' as `AMQP:agpl.txt`.
If not, see the GNU [site](http://www.gnu.org/licenses/)."))
(eval-when (:compile-toplevel :load-toplevel :execute) ; lw wants this for the shared slot
(defvar amqp-1-1-0-9-1::+protocol-version+
:amqp-1-1-0-9-1
"Specifies the protocol header for the highest supported version."))
(setf (version-protocol-header amqp-1-1-0-9-1::+protocol-version+) #(65 77 81 80 0 0 9 1))
(defclass amqp-1-1-0-9-1:object (amqp:object)
((version
:initform amqp-1-1-0-9-1::+protocol-version+
:allocation :class)))
(defclass amqp-1-1-0-9-1:method (amqp:method)
((version
:initform amqp-1-1-0-9-1::+protocol-version+
:allocation :class)))
(defmethod method-argument-offset ((method amqp-1-1-0-9-1::method))
4)