Raymond Toy pushed to branch issue-266-tilde-pathname-support at cmucl / cmucl
Commits: 2575887d by Raymond Toy at 2023-11-30T15:16:43-08:00 Update release notes
- - - - - 3561af64 by Raymond Toy at 2023-11-30T15:16:52-08:00 Add test for ~ in pathnames.
Just get the directory list for #P"~/*.*" and #P"home:". They should be identical.
- - - - -
2 changed files:
- src/general-info/release-21f.md - tests/pathname.lisp
Changes:
===================================== src/general-info/release-21f.md ===================================== @@ -39,6 +39,7 @@ public domain. * ~~#253~~ Block-compile list-to-hashtable and callers * ~~#258~~ Remove `get-page-size` from linux-os.lisp * ~~#269~~ Add function to get user's home directory + * ~~#266~~ Support ~ in pathnames like a shell * Other changes: * Improvements to the PCL implementation of CLOS: * Changes to building procedure:
===================================== tests/pathname.lisp ===================================== @@ -111,3 +111,12 @@ test (assert-equal printed-value (output pathname)) (assert-equal namestring (namestring pathname)))))) + +(define-test issue.266.pathname-tilde + (:tag :issues) + ;; Simple test for ~ in pathnames. Get the directory list using + ;; #P"~/*.*". This should be equal to the directory using the + ;; search-list #P"home:*.*". + (let ((dir-home (directory #P"home:*.*")) + (dir-tilde (directory #P"~/*.*"))) + (assert-equal dir-tilde dir-home)))
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/efc75c10eb0e38f38b997f6...