(foreign-declare "#include \"implementations/SHA-2/sha512crypt.c\"")

(define (crypt-sha512 password setting)
  (or ((foreign-lambda c-string "sha512_crypt" c-string c-string)
       password setting)
      ;; TODO: implement proper error handling
      (error "Error running SHA-512 crypt")))