remove dead code in wrapper-stream

lmj · Mar 16, 2013 · 5574ea6 · 5574ea6
1 parent 3d18515
commit 5574ea6
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lfarm-gss/wrapper-stream.lisp b/lfarm-gss/wrapper-stream.lisp
@@ -25,12 +25,12 @@
 (defmethod trivial-gray-streams:stream-read-sequence
     ((stream wrapper-stream) seq start end &key)
   (read-sequence seq (wrapper-stream-delegate stream)
-                 :start (or start 0) :end end))
+                 :start start :end end))
 
 (defmethod trivial-gray-streams:stream-write-sequence
     ((stream wrapper-stream) seq start end &key)
   (write-sequence seq (wrapper-stream-delegate stream)
-                  :start (or start 0) :end end))
+                  :start start :end end))
 
 (defmethod trivial-gray-streams:stream-finish-output
     ((stream wrapper-stream))