GitLab

at 2023-11-17T09:10:44-08:00

Fix typos in test.

It should be `LET*` instead of `LET` and it's `info-name` instead of
`user-name`.

          (user-info (unix:unix-getpwuid uid)))

     (assert-true uid)

     (assert-true user-info)

-    (let ((info-dir (unix:user-info-dir user-info))

-          (info-name (unix:user-info-name user-info))

-          (expected-home-pathname (pathname

-                             (concatenate 'string info-dir "/")))

-          (home-pathname (unix:unix-get-user-homedir user-name)))

+    (let* ((info-dir (unix:user-info-dir user-info))

+           (info-name (unix:user-info-name user-info))

+           (expected-home-pathname (pathname

+                                    (concatenate 'string info-dir "/")))

+           (home-pathname (unix:unix-get-user-homedir info-name)))

       (assert-true info-dir)

       (assert-true info-name)

Raymond Toy pushed to branch issue-269-unix-get-user-homedir at cmucl / cmucl

Commits:

1 changed file:

Changes: