/[de-setf-amqp]/AMQP-1-1-0-8-0/abstract-classes.lisp
ViewVC logotype

Contents of /AMQP-1-1-0-8-0/abstract-classes.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 3 - (show annotations)
Tue Feb 23 09:05:39 2010 UTC (4 years, 1 month ago) by janderson
File size: 1512 byte(s)
Merge commit 'remotes/github/master' into remotes/git-svn
1 ;;; -*- Package: de.setf.amqp.implementation; -*-
2
3 (in-package :de.setf.amqp.implementation)
4
5 (document :file
6 (description "This file defines abstract protocol classes for AMPQ version 0.8 components of the
7 `de.setf.amqp` library.")
8 (copyright
9 "Copyright 2010 [james anderson](mailto:james.anderson@setf.de) All Rights Reserved"
10 "'de.setf.amqp' is free software: you can redistribute it and/or modify it under the terms of version 3
11 of the GNU Affero General Public License as published by the Free Software Foundation.
12
13 'setf.amqp' is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the
14 implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
15 See the Affero General Public License for more details.
16
17 A copy of the GNU Affero General Public License should be included with 'de.setf.amqp' as `AMQP:agpl.txt`.
18 If not, see the GNU [site](http://www.gnu.org/licenses/)."))
19
20
21 (defvar amqp-1-1-0-8-0::+protocol-version+
22 ':amqp-1-1-0-8-0
23 "Specifies the protocol header for the highest supported version.")
24
25 (setf (version-protocol-header amqp-1-1-0-8-0::+protocol-version+) #(65 77 81 80 1 1 8 0))
26
27
28 (defclass amqp-1-1-0-8-0:object (amqp:object)
29 ((version
30 :initform amqp-1-1-0-8-0::+protocol-version+
31 :allocation :class)))
32
33
34 (defclass amqp-1-1-0-8-0:method (amqp:method)
35 ((version
36 :initform amqp-1-1-0-8-0::+protocol-version+
37 :allocation :class)))
38
39
40 (defmethod method-argument-offset ((method amqp-1-1-0-8-0::method))
41 4)

  ViewVC Help
Powered by ViewVC 1.1.5