FastIO:FAST-INPUT-STREAM missing method for INPUT-STREAM-P

[imars]

I'm doing some work to get the test passing with SBCL (1.4.5) and when attempting to use cl-ipfs-api:add with the basic test data, I'm getting this error:

"The stream #<FAST-IO:FAST-INPUT-STREAM {1005F97A83}> has no
suitable method for INPUT-STREAM-P, and so has fallen through to
this method. If you think that this is a bug, please report it
to the applicable authority (bugs in SBCL itself should go to
the mailing lists referenced from http://www.sbcl.org/)."

Backtrace:
0: ((:METHOD INPUT-STREAM-P (STREAM)) #<FAST-IO:FAST-INPUT-STREAM {1005F97A83}>) [fast-method]
Locals:
STREAM = #<FAST-IO:FAST-INPUT-STREAM {1005F97A83}>
1: (MAKE-CONCATENATED-STREAM #<FAST-IO:FAST-INPUT-STREAM {1005F97A83}> #<FAST-IO:FAST-INPUT-STREAM {1005F99183}> #<SB-SYS:FD-STREAM for "file /Users/ian/testdir/file1.txt" {1005F9A553}> #<FAST-IO:FAST-IN..
Locals:
STREAM = #<FAST-IO:FAST-INPUT-STREAM {1005F97A83}>
SB-IMPL::STREAMS = (#<FAST-IO:FAST-INPUT-STREAM {1005F97A83}> #<FAST-IO:FAST-INPUT-STREAM {1005F99183}> #<SB-SYS:FD-STREAM for "file /Users/ian/testdir/file1.txt" {1005F9A553}> #<FAST-IO:FAST-INPUT-STREAM {1005F9AB13}> ..
2: (MULTIPART-STREAM:MAKE-MULTIPART-STREAM "IEc2nVxoAb4yOvjIDpxF7h90" #<IPFS-MULTIPART-NODE "#4=../#4#/#4#/#4#/#4#/#4#/3##2#/testdir/file1.txt/#1#" #P"testdir/file1.txt">)
Locals:
BOUNDARY = "IEc2nVxoAb4yOvjIDpxF7h90"
SB-DEBUG::MORE = (#<IPFS-MULTIPART-NODE "file1.txt" #P"testdir/file1.txt">)
3: (CL-IPFS-API:REQUEST-API "/add" NIL #P"testdir/file1.txt" (("recursive") ("quiet") ("progress") ("trickle") ("only-hash") ("wrap-with-directory") ...) NIL T)
Locals:
CL-IPFS-API::ARGS = NIL
CL-IPFS-API::COMMAND = "/add"
CL-IPFS-API::ENCODING = #<CL-IPFS-API::JSON-ENCODING {10048489C3}>
CL-IPFS-API::FILES = #P"testdir/file1.txt"
CL-IPFS-API::OPTS = (("recursive") ("quiet") ("progress") ("trickle") ("only-hash") ("wrap-with-directory") ...)
CL-IPFS-API::URI = #<QURI.URI.HTTP:URI-HTTP http://localhost:5001/api/v0/add?stream-channels=true>
CL-IPFS-API::USE-STREAM = T
CL-IPFS-API::WANT-STREAM = NIL
4: (SB-INT:SIMPLE-EVAL-IN-LEXENV (CL-IPFS-API:ADD TEST-FILE-PATH) #)
Locals:
SB-KERNEL:LEXENV = #
SB-IMPL::ORIGINAL-EXP = (CL-IPFS-API:ADD TEST-FILE-PATH)
5: (EVAL (CL-IPFS-API:ADD TEST-FILE-PATH))
6: (SWANK::EVAL-REGION "(cl-ipfs-api:add test-file-path) ..)
7: ((LAMBDA NIL :IN SWANK-REPL::REPL-EVAL))
8: (SWANK-REPL::TRACK-PACKAGE #<CLOSURE (LAMBDA NIL :IN SWANK-REPL::REPL-EVAL) {1005F9409B}>)
9: (SWANK::CALL-WITH-RETRY-RESTART "Retry SLIME REPL evaluation request." #<CLOSURE (LAMBDA NIL :IN SWANK-REPL::REPL-EVAL) {1005F9403B}>)
10: (SWANK::CALL-WITH-BUFFER-SYNTAX NIL #<CLOSURE (LAMBDA NIL :IN SWANK-REPL::REPL-EVAL) {1005F9401B}>)
11: (SWANK-REPL::REPL-EVAL "(cl-ipfs-api:add test-file-path) ..)
12: (SB-INT:SIMPLE-EVAL-IN-LEXENV (SWANK-REPL:LISTENER-EVAL "(cl-ipfs-api:add test-file-path) ..)
13: (EVAL (SWANK-REPL:LISTENER-EVAL "(cl-ipfs-api:add test-file-path) ..)
14: (SWANK:EVAL-FOR-EMACS (SWANK-REPL:LISTENER-EVAL "(cl-ipfs-api:add test-file-path) ..)
15: (SWANK::PROCESS-REQUESTS NIL)
16: ((LAMBDA NIL :IN SWANK::HANDLE-REQUESTS))
17: ((LAMBDA NIL :IN SWANK::HANDLE-REQUESTS))
18: (SWANK/SBCL::CALL-WITH-BREAK-HOOK # #<CLOSURE (LAMBDA NIL :IN SWANK::HANDLE-REQUESTS) {10060DFD4B}>)
19: ((FLET SWANK/BACKEND:CALL-WITH-DEBUGGER-HOOK :IN "/Users/ian/quicklisp/dists/quicklisp/software/slime-v2.20/swank/sbcl.lisp") # #<CLOSURE (LAMBDA NIL :IN SWANK::HAN..
20: (SWANK::CALL-WITH-BINDINGS ((STANDARD-INPUT . #1=#<SWANK/GRAY::SLIME-INPUT-STREAM {1001F588E3}>) (STANDARD-OUTPUT . #2=#<SWANK/GRAY::SLIME-OUTPUT-STREAM {1002D64093}>) (TRACE-OUTPUT . #2#) (*ERR..
21: (SWANK::HANDLE-REQUESTS #<SWANK::MULTITHREADED-CONNECTION {1005A99D13}> NIL)
22: ((FLET SB-UNIX::BODY :IN SB-THREAD::INITIAL-THREAD-FUNCTION-TRAMPOLINE))
23: ((FLET "WITHOUT-INTERRUPTS-BODY-4" :IN SB-THREAD::INITIAL-THREAD-FUNCTION-TRAMPOLINE))
24: ((FLET SB-THREAD::WITH-MUTEX-THUNK :IN SB-THREAD::INITIAL-THREAD-FUNCTION-TRAMPOLINE))
25: ((FLET "WITHOUT-INTERRUPTS-BODY-1" :IN SB-THREAD::CALL-WITH-MUTEX))
26: (SB-THREAD::CALL-WITH-MUTEX #<CLOSURE (FLET SB-THREAD::WITH-MUTEX-THUNK :IN SB-THREAD::INITIAL-THREAD-FUNCTION-TRAMPOLINE) {4A41D3B}> #<SB-THREAD:MUTEX "thread result lock" owner: #<SB-THREAD:THREAD "..
27: (SB-THREAD::INITIAL-THREAD-FUNCTION-TRAMPOLINE #<SB-THREAD:THREAD "new-repl-thread" RUNNING {1006101733}> NIL #<CLOSURE (LAMBDA NIL :IN SWANK-REPL::SPAWN-REPL-THREAD) {10061016DB}> NIL)
28: ("foreign function: call_into_lisp")
29: ("foreign function: new_thread_trampoline")
30: ("foreign function: _pthread_body")
31: ("foreign function: _pthread_body")
32: ("foreign function: thread_start")

I've added
(defmethod input-stream-p ((stream fast-io:fast-input-stream))
t)
for the moment.