X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fseq.impure.lisp;h=ee254df89d9389329dc3ede7298f19d1154bed28;hb=1dc3a468ba32755c51747d6e85ed32d989f2dd49;hp=f91e7977b920333b198713a50bd400250653a87b;hpb=ddaf14f0438b5252d4d5d149f65921795c9a771d;p=sbcl.git diff --git a/tests/seq.impure.lisp b/tests/seq.impure.lisp index f91e797..ee254df 100644 --- a/tests/seq.impure.lisp +++ b/tests/seq.impure.lisp @@ -515,7 +515,7 @@ (sequence-bounding-indices-test (format t "~&/Function PARSE-NAMESTRING") (setf (fill-pointer string) 10) - (setf (subseq string 0 10) + (setf (subseq string 0 10) #-win32 "/dev/ /tmp" #+win32 "C:/ NUL") (setf (fill-pointer string) 5)