Coverage report: /development/source/library/org/datagraph/spocq-shard/src/core/patches/sbcl-20181008.lisp

KindCoveredAll%
expression052 0.0
branch02 0.0
Key
Not instrumented
Conditionalized out
Executed
Not executed
 
Both branches taken
One branch taken
Neither branch taken
1
 ;;; -*- package: sb-kernel; -*-
2
 
3
 (in-package :sb-impl)
4
 
5
 ;;; add :clear-output
6
 
7
 (handler-case (SB-EXT:ASSERT-VERSION->= 1 4)
8
   (error ()
9
 (defun stream-misc-dispatch (stream operation &optional arg1 arg2)
10
   (declare (type stream stream) (ignore arg2))
11
   (ecase operation
12
          (:listen
13
           ;; Return T if input available, :EOF for end-of-file, otherwise NIL.                                          
14
           (let ((char (read-char-no-hang stream nil :eof)))
15
             (when (characterp char)
16
               (unread-char char stream))
17
             char))
18
          (:unread
19
           (unread-char arg1 stream))
20
          (:close
21
           (close stream))
22
          (:clear-input
23
           (clear-input stream))
24
          (:clear-output
25
           (clear-output stream))
26
          (:force-output
27
           (force-output stream))
28
          (:finish-output
29
           (finish-output stream))
30
          (:element-type
31
           (stream-element-type stream))
32
          (:element-mode
33
           (stream-element-type-stream-element-mode
34
            (stream-element-type stream)))
35
          (:stream-external-format
36
           (stream-external-format stream))
37
          (:interactive-p
38
           (interactive-stream-p stream))
39
          (:line-length
40
           (line-length stream))
41
          (:charpos
42
           (charpos stream))
43
          (:file-length
44
           (file-length stream))
45
          (:file-string-length
46
           (file-string-length stream arg1))
47
          (:file-position
48
           (file-position stream arg1))))
49
 ))
50
 
51