Raymond Toy pushed to branch issue-266-tilde-pathname-support at cmucl / cmucl

Commits:

2 changed files:

Changes:

  • src/general-info/release-21f.md
    ... ... @@ -39,6 +39,7 @@ public domain.
    39 39 
         * ~~#253~~ Block-compile list-to-hashtable and callers
    40 40 
         * ~~#258~~ Remove `get-page-size` from linux-os.lisp
    41 41 
         * ~~#269~~ Add function to get user's home directory
    42 
    +    * ~~#266~~ Support ~ in pathnames like a shell
    42 43 
       * Other changes:
    43 44 
       * Improvements to the PCL implementation of CLOS:
    44 45 
       * Changes to building procedure:

  • tests/pathname.lisp
    ... ... @@ -111,3 +111,12 @@
    111 111 
     	  test
    112 112 
     	(assert-equal printed-value (output pathname))
    113 113 
     	(assert-equal namestring (namestring pathname))))))
    114 
    +
    115 
    +(define-test issue.266.pathname-tilde
    116 
    +    (:tag :issues)
    117 
    +  ;; Simple test for ~ in pathnames.  Get the directory list using
    118 
    +  ;; #P"~/*.*".  This should be equal to the directory using the
    119 
    +  ;; search-list #P"home:*.*".
    120 
    +  (let ((dir-home (directory #P"home:*.*"))
    121 
    +        (dir-tilde (directory #P"~/*.*")))
    122 
    +    (assert-equal dir-tilde dir-home)))

    • —
    View it on GitLab.
    You're receiving this email because of your account on gitlab.common-lisp.net. Manage all notifications · Help