Permalink
Browse files

lispworks stream imports

  • Loading branch information...
1 parent ec01db4 commit 6b791640ab03afaeb9c78ab8569fcc8f7e78fc15 @lisp committed Apr 22, 2011
Showing with 4 additions and 0 deletions.
  1. +4 −0 stream.lisp
View
4 stream.lisp
@@ -304,9 +304,13 @@
(when (null new)
(device-file-position stream)))
+#-lispworks
(defmethod stream-file-position ((stream amqp-device) &optional new)
(when (null new)
(device-file-position stream)))
+#+lispworks
+(defmethod stream-file-position ((stream amqp-device))
+ (device-file-position stream))
;; pathname : NYI

0 comments on commit 6b79164

Please sign in to comment.