Skip to content


Subversion checkout URL

You can clone with
Download ZIP
Browse files

... change amqp:deliver to return verbatim the values of a an op pass…

…ed to device-read-content
  • Loading branch information...
commit 8e4f674ad04825de054ea3f8e8c1e44dfefeca76 1 parent b605602
@lisp authored
Showing with 1 addition and 2 deletions.
  1. +1 −2  commands.lisp
3  commands.lisp
@@ -450,8 +450,7 @@ messages in between sending the cancel method and receiving the cancel-ok reply.
(let ((channel (object-channel basic)))
;; save the tag for eventual acknowledgment - either by app or below
(setf (amqp:basic-delivery-tag basic) delivery-tag)
- (multiple-value-prog1 (values (apply #'device-read-content channel args)
- (amqp:basic-headers basic))
+ (multiple-value-prog1 (apply #'device-read-content channel args)
(when (and (channel-acknowledge-messages channel)
;; in case the ack was managed elsewhere, test
(eql (amqp:basic-delivery-tag basic) delivery-tag))
Please sign in to comment.
Something went wrong with that request. Please try again.