Commit 40f6e820 authored by Pascal J. Bourguignon's avatar Pascal J. Bourguignon

Filter out NIL from group lines.

parent 2a4282af
......@@ -108,11 +108,12 @@ DO: Read the group file.
GROUP-FILE-PATH: The pathname to the group file; default: \"/etc/group\"
RETURN: A list of group GROUP structures.
"
(mapcar (function parse-group)
(with-open-file (in group-file-path
:direction :input
:if-does-not-exist :error)
(stream-to-string-list in))))
(delete nil
(mapcar (function parse-group)
(with-open-file (in group-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