[fix bug in blob stream support
drewc@tech.coop**20090617204343] {
hunk ./src/rofl.lisp 65
+
hunk ./src/rofl.lisp 68
-						  :from 
-						  (trivial-gray-streams:stream-file-position stream)
-						  :for length)
+					    :from 
+					    (1+ (trivial-gray-streams:stream-file-position stream))
+					    :for length)
hunk ./src/rofl.lisp 74
+
hunk ./src/rofl.lisp 76
+       :for i :from 0 :to (1- length)
hunk ./src/rofl.lisp 78
-       :for i :from start :to end
hunk ./src/rofl.lisp 80
+
hunk ./src/rofl.lisp 107
+(defparameter *trace-query* nil)
hunk ./src/rofl.lisp 110
-  (cl-postgres:exec-query *database* (sql-compile query) *row-reader*))
+  (cl-postgres:exec-query *database* (funcall 
+				      (if *trace-query* 
+					  (lambda (thing)
+					    (print thing *trace-output*))
+					  #'identity)
+				      (sql-compile query)) *row-reader*))
}