(sequence-bounding-indices-test
(format t "~&/Function PARSE-NAMESTRING")
(setf (fill-pointer string) 10)
(sequence-bounding-indices-test
(format t "~&/Function PARSE-NAMESTRING")
(setf (fill-pointer string) 10)
(setf (fill-pointer string) 5)
(assert (truename (parse-namestring string nil *default-pathname-defaults*
:start 0 :end 5)))
(setf (fill-pointer string) 5)
(assert (truename (parse-namestring string nil *default-pathname-defaults*
:start 0 :end 5)))
(loop for i = 1 then (* i 2) do
;; the bare '32' here is fairly arbitrary; '8' provides a good
;; range of lengths over which to fill and copy, which should tease
(loop for i = 1 then (* i 2) do
;; the bare '32' here is fairly arbitrary; '8' provides a good
;; range of lengths over which to fill and copy, which should tease