Commit cac8d2fe authored by Pascal J. Bourguignon's avatar Pascal J. Bourguignon

Exported make-user.

parent cbc9f310
...@@ -17,7 +17,7 @@ ...@@ -17,7 +17,7 @@
;;;;LEGAL ;;;;LEGAL
;;;; AGPL3 ;;;; 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 ;;;; 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 ;;;; it under the terms of the GNU Affero General Public License as published by
...@@ -40,6 +40,7 @@ ...@@ -40,6 +40,7 @@
"COM.INFORMATIMAGO.COMMON-LISP.CESARUM.STREAM") "COM.INFORMATIMAGO.COMMON-LISP.CESARUM.STREAM")
(:export "USER-SHELL" "USER-HOME" "USER-GECOS" "USER-GID" (:export "USER-SHELL" "USER-HOME" "USER-GECOS" "USER-GID"
"USER-UID" "USER-PASSWD" "USER-LOGIN" "USER" "READ-PASSWD") "USER-UID" "USER-PASSWD" "USER-LOGIN" "USER" "READ-PASSWD")
(:export "MAKE-USER")
(:documentation (:documentation
" "
This package exports a function to read unix passwd files. This package exports a function to read unix passwd files.
...@@ -68,10 +69,8 @@ License: ...@@ -68,10 +69,8 @@ License:
")) "))
(in-package "COM.INFORMATIMAGO.COMMON-LISP.UNIX.PASSWD") (in-package "COM.INFORMATIMAGO.COMMON-LISP.UNIX.PASSWD")
;; pwent ::= login ':' passwd ':' uid ':' gid ':' gecos ':' home ':' shell ;; pwent ::= login ':' passwd ':' uid ':' gid ':' gecos ':' home ':' shell
(defstruct user (defstruct user
"A unix /etc/passwd USER." "A unix /etc/passwd USER."
(login "" :type string) (login "" :type string)
......
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