Exported make-user.

Pascal J. Bourguignon [2018-11-04 16:41]
Exported make-user.
Filename
common-lisp/unix/passwd.lisp
diff --git a/common-lisp/unix/passwd.lisp b/common-lisp/unix/passwd.lisp
index 9db3236..c590193 100644
--- a/common-lisp/unix/passwd.lisp
+++ b/common-lisp/unix/passwd.lisp
@@ -17,7 +17,7 @@
 ;;;;LEGAL
 ;;;;    AGPL3
 ;;;;
-;;;;    Copyright Pascal J. Bourguignon 2004 - 2016
+;;;;    Copyright Pascal J. Bourguignon 2004 - 2018
 ;;;;
 ;;;;    This program is free software: you can redistribute it and/or modify
 ;;;;    it under the terms of the GNU Affero General Public License as published by
@@ -40,6 +40,7 @@
         "COM.INFORMATIMAGO.COMMON-LISP.CESARUM.STREAM")
   (:export "USER-SHELL" "USER-HOME" "USER-GECOS" "USER-GID"
            "USER-UID" "USER-PASSWD" "USER-LOGIN" "USER" "READ-PASSWD")
+  (:export "MAKE-USER")
   (:documentation
    "
 This package exports a function to read unix passwd files.
@@ -68,10 +69,8 @@ License:
 "))
 (in-package "COM.INFORMATIMAGO.COMMON-LISP.UNIX.PASSWD")

-
 ;; pwent ::= login ':' passwd ':' uid ':' gid ':' gecos ':' home ':' shell

-
 (defstruct user
   "A unix /etc/passwd USER."
   (login  "" :type string)
ViewGit