;;;; pwg.lisp

(in-package #:pwg)

(defvar +characters+ "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789!@#$%^&()_=")

(defvar +length-characters+ (length +characters+))

(defun generate-password (pwd-length)
  "Generate a password of length PWD-LENGTH"
  (let ((password (make-array 0 :element-type 'character :fill-pointer 0 :adjustable t)))
    (dotimes (i pwd-length)
      (vector-push-extend (char +characters+ (random (1- +length-characters+))) password))
    password
    (format t password)))

;;;; https://stackoverflow.com/questions/5009853/how-to-pass-arguments-to-saved-sbcl-core
(defun main ()
  (let ((argv sb-ext:*posix-argv*))
    ))