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

Fix wrong type declaration

Browse source
This commit is contained in:
Douglas Katzman 2026-03-23 23:01:41 -04:00
parent ff39333e8d
commit aa847135d4
2 changed files with 9 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/code/filesys.lisp
View file

@ -202,7 +202,7 @@
(setf (aref result index) character) (setf (aref result index) character)
(incf index)) (incf index))
(output-string (string) (output-string (string)
(declare (type (simple-array character 1) string)) (declare (string string))
(setf (subseq result index) string) (setf (subseq result index) string)
(incf index (length string))) (incf index (length string)))
(unparse-fragment (fragment) (unparse-fragment (fragment)

8
tests/filesys.pure.lisp
View file

@ -126,6 +126,14 @@
(with-open-file (i "tests/filesys.pure.lisp") (with-open-file (i "tests/filesys.pure.lisp")
(assert i)))) (assert i))))
;;; The OPEN tests would fail for the wrong reason when the supplied pathname parts
;;; were simple-base-string. The unparser expected simple-character-string
;;; so it signaled a type-error instead of file-error.
(with-test (:name :unparse-simple-base-string-wild)
(assert (string= (sb-impl::unparse-physical-file
(pathname (coerce "flub*.txt" 'simple-base-string)) #\^)
"flub*.txt")))
;;; OPEN, LOAD and friends should signal an error of type FILE-ERROR ;;; OPEN, LOAD and friends should signal an error of type FILE-ERROR
;;; if they are fed wild pathname designators; firstly, with wild ;;; if they are fed wild pathname designators; firstly, with wild
;;; pathnames that don't correspond to any files: ;;; pathnames that don't correspond to any files: