changelog shortlog graph tags branches changeset files revisions annotate raw help

Mercurial > core / lisp/lib/cry/err.lisp

changeset 698: 96958d3eb5b0
parent: d7aa08025537
author: Richard Westhaver <ellis@rwest.io>
date: Fri, 04 Oct 2024 22:04:59 -0400
permissions: -rw-r--r--
description: fixes 
     1 (in-package :cry)
     2 
     3 (define-condition crypto-error (std-error) ())
     4 
     5 (define-condition crypto-token-expired (crypto-error)
     6   ((token :initarg :token :accessor token)
     7    (expiry :initarg :expiry :accessor expiry))
     8   (:report
     9    (lambda (c s)
    10      (format s "Token expired: ~A at ~A"
    11              (token c)
    12              (expiry c))))
    13   (:documentation "Condition raised when use of an expired token is attempted."))
    14 
    15 (define-condition crypto-token-invalid (crypto-error)
    16   ((token :initarg :token :accessor token)
    17    (reset-token :initarg :reset-token :accessor reset-token))
    18   (:report
    19    (lambda (c s)
    20      (format s "~A reset token is invalid: ~A"
    21              (token c)
    22              (reset-token c))))
    23   (:documentation "Condition raised when use of an invalid token is attempted."))