GitLab

at 2023-12-06T13:53:17-08:00

Remove debugging prints

            path))))

 (defun replace-tilde-user (str start end)

-  #+nil

-  (return-from replace-tilde-user

-    (values str start end))

   ;; Quick exit if STR doesn't start with ~ or we have an empty string.

   (when (or (= start end)

             (char/= (schar str start) #\~))

       (values str start end)))

   (let ((end-user (position #\/ str :start start :end end)))

-    #+nil

-    (format t "user ~D:~D: ~A~%" (1+ start) end-user (subseq str (1+ start) end-user))

     ;; Quick exit if we can't find a "/" to terminate the user name.

     (unless end-user

       (return-from replace-tilde-user

         (values str start end)))

     (let* ((user-name (subseq str (1+ start) end-user))

            (homedir (user-homedir-namestring user-name)))

-      #+nil

-      (format t "user-name: ~S; homedir: ~S~%"

-              user-name homedir)

-      ;; Replace the ~user part with the home directory, adjusting END because of the replacement.

+      ;; Replace the ~user part with the home directory, adjusting END

+      ;; because of the replacement.

       (values (concatenate 'simple-base-string

                            (subseq str 0 start)

                            homedir

   ;; home directory

   (multiple-value-bind (namestr start end)

       (replace-tilde-user namestr start end)

-    #+nil

-    (format t "~S: ~D ~D~%" namestr start end)

     (multiple-value-bind

           (absolute pieces)

         (split-at-slashes namestr start end)

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

Commits:

1 changed file:

Changes: