Commit 2a4282af authored by Pascal J. Bourguignon's avatar Pascal J. Bourguignon

Filter out NIL from passwd lines.

parent 9ac919fd
......@@ -121,11 +121,12 @@ DO: Read a passwd file.
PASSWD-FILE-PATH: The pathname of the passwd file. Default: \"/etc/passwd\".
RETURN: A list of passwd USER structures.
"
(mapcar (function parse-passwd)
(with-open-file (in passwd-file-path
:direction :input
:if-does-not-exist :error)
(stream-to-string-list in))))
(delete nil
(mapcar (function parse-passwd)
(with-open-file (in passwd-file-path
:direction :input
:if-does-not-exist :error)
(stream-to-string-list in)))))
;;;; THE END ;;;;
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment