New ids.
This commit is contained in:
parent
4f752d81f0
commit
5744a186d2
2 changed files with 13 additions and 0 deletions
|
@ -79,6 +79,7 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
|
|||
(-action- 'print-member-file))
|
||||
(-tests () "Run self-tests upon startup" (-run-tests?- #t))
|
||||
(-idstats () "Returns information about available member ids" (-action- 'print-idstats))
|
||||
(-genid () "Generates random member id" (-action- 'genid))
|
||||
)
|
||||
|
||||
;; Run tests
|
||||
|
@ -132,4 +133,8 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
|
|||
(newline)
|
||||
(print-members-ids-stats MB)
|
||||
(newline))
|
||||
((genid)
|
||||
(newline)
|
||||
(print "New member id: " (gen-member-id MB))
|
||||
(newline))
|
||||
)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue