changelog shortlog graph tags branches changeset files revisions annotate raw help

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

changeset 698: 96958d3eb5b0
parent: dc4dfb4d71d0
author: Richard Westhaver <ellis@rwest.io>
date: Fri, 04 Oct 2024 22:04:59 -0400
permissions: -rw-r--r--
description: fixes 
     1 ;;; krypt/err.lisp --- Krypt Errors
     2 
     3 ;;
     4 
     5 ;;; Code:
     6 (in-package :krypt)
     7 
     8 (define-condition krypt-error (error)
     9   ()
    10   (:documentation "Error signaled by the KRYPT system."))
    11 
    12 (deferror krypt-simple-error (krypt-error simple-error) ())
    13 
    14 (defun krypt-simple-error (ctrl &rest args)
    15   (error 'simple-sql-error :format-control ctrl :format-arguments args))