Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
tree: fd51e7735e
Fetching contributors…

Cannot retrieve contributors at this time

42 lines (27 sloc) 1.454 kB
;;; -*- Package: de.setf.amqp.implementation; -*-
(in-package :de.setf.amqp.implementation)
(:documentation "This file defines abstract protocol classes for AMPQ version 0.9r0 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/)."))
(defvar amqp-1-1-0-9-0::+protocol-version+
:amqp-1-1-0-9-0
"Specifies the protocol header for the highest supported version.")
(setf (version-protocol-header amqp-1-1-0-9-0::+protocol-version+) #(65 77 81 80 1 1 0 9))
(defclass amqp-1-1-0-9-0:object (amqp:object)
((version
:initform '(1 1 0 9 0)
:allocation :class)))
(defclass amqp-1-1-0-9-0:method (amqp:method)
((version
:initform '(1 1 0 9 0)
:allocation :class)))
(defmethod method-argument-offset ((method amqp-1-1-0-9-0::method))
4)
Jump to Line
Something went wrong with that request. Please try again.