From: William Harold Newman <william.newman@ai...> - 2004-03-05 00:30:02
I think I can see the bug:-)
(defun concatenated-n-bin (stream buffer start numbytes eof-errorp)
- (do ((current (concatenated-stream-current stream) (cdr current))
+ (do ((streams (concatenated-stream-streams stream) (cdr streams))
@@ -847,10 +838,10 @@
(incf current-start bytes-read)
(decf remaining-bytes bytes-read)
(when (zerop remaining-bytes) (return numbytes)))
- (setf (concatenated-stream-current stream) (cdr current))))
+ (setf (concatenated-stream-streams stream) (cdr streams))))
but I'm off to play Go instead of hanging out to retry the build
cycle, so I won't fix it until late tonight (maybe) or after the
Europeans have woken up (more likely).
William Harold Newman <william.newman@...>
"Do you like functional programming?"
"I named my firstborn 'Continuation Passing Style'. -- 7%"
-- poll, <http://www.kuro5hin.org/story/2001/7/31/0102/11014>
PGP key fingerprint 85 CE 1C BA 79 8D 51 8C B9 25 FB EE E0 C3 E5 7C