common-lisp/sbcl.sbcl
1
0
Fork 0
mirror of git://git.code.sf.net/p/sbcl/sbcl synced 2026-09-10 07:26:40 -04:00
Code Issues Actions 8 Packages Projects Releases Wiki Activity

tests: fix :fill-pointer-stream-charpos :displaced

Browse source 
Specify the correct element-type for displacement.
This commit is contained in:
Stas Boukarev 2017-12-11 16:07:06 +03:00
parent b9f2c00b81
commit e24ee6ad43
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
tests/stream.pure.lisp
View file

@ -436,9 +436,11 @@
(assert (equal string (string #\Newline)))))
(with-test (:name (:fill-pointer-stream-charpos :displaced))
(let ((string (make-array 3 :displaced-to (format nil "~%abc")
:displaced-index-offset 1
:element-type 'character :fill-pointer 0)))
(let* ((displaced (format nil "~%abc"))
(string (make-array 3 :displaced-to displaced
:displaced-index-offset 1
:element-type (array-element-type displaced)
:fill-pointer 0)))
(with-output-to-string (stream string)
(fresh-line stream))
(assert (equal string ""))))