flexi-streams:output-stream-sequence-length

[helmute]

(defun example ()
(let ((outmem (flexi-streams:make-in-memory-output-stream)))
(write-sequence '(72 101 108 108 111) outmem)
(flexi-streams:output-stream-sequence-length outmem)))

The value #(72 101 108 108 111)
is not of type
(SIMPLE-ARRAY * (*)).
[Condition of type TYPE-ERROR]

Restarts:
0: [RETRY] Retry SLIME REPL evaluation request.
1: [*ABORT] Return to SLIME's top level.
2: [ABORT] abort thread (#<THREAD "new-repl-thread" RUNNING {1009D843B3}>)

Backtrace:
0: ((:METHOD FLEXI-STREAMS:OUTPUT-STREAM-SEQUENCE-LENGTH (FLEXI-STREAMS:IN-MEMORY-OUTPUT-STREAM)) #) [fast-method]
[No Locals]
1: (EXAMPLE)

if I comment the (the (simple-array * (*)) out, the error is gone:

(defmethod output-stream-sequence-length ((stream in-memory-output-stream))
"Returns the current length of the underlying vector of the
IN-MEMORY output stream STREAM."
(declare (optimize speed))
(with-accessors ((vector vector-stream-vector))
stream
(length ;(the (simple-array * (*))
vector)));)
Helmut