Coverage report: /development/source/library/org/datagraph/spocq-shard/src/core/patches/flexistreams-20180307.lisp
| Kind | Covered | All | % |
| expression | 0 | 10 | 0.0 |
| branch | 0 | 2 | 0.0 |
Key
Not instrumented
Conditionalized out
Executed
Not executed
Both branches taken
One branch taken
Neither branch taken
1
;;; -*- package: sb-kernel; -*-3
(in-package :flexi-streams)5
;; ensure that truncate treats unity rationals as whole7
(defun maybe-rewind (stream octets)8
"Tries to `rewind' the \(binary) stream STREAM by OCTETS octets.9
Returns T if it succeeds, otherwise NIL."10
(when-let (position (stream-file-position stream))11
(if (file-position stream (- position octets)) t nil)))