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... -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/efc75c10eb0e38f38b997f6... You're receiving this email because of your account on gitlab.common-lisp.net.