base/conditions.lisp

   1 ;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; indent-tabs-mode: nil -*-
   2 ;;;
   3 ;;; --- Error conditions.
   4 ;;;
   5
   6 (in-package :iolib.base)
   7
   8 ;;;-------------------------------------------------------------------------
   9 ;;; Bugs
  10 ;;;-------------------------------------------------------------------------
  11
  12 (define-condition iolib-bug (error)
  13   ((message :initarg :message :reader iolib-bug-message))
  14   (:report
  15    (lambda (condition stream)
  16      (format stream "~A.~%This seems to be a bug in IOlib. ~
  17                      Please report it to iolib-devel@common-lisp.net"
  18              (iolib-bug-message condition)))))
  19
  20 (defun bug (control &rest args)
  21   (error 'iolib-bug :message (format nil "~?" control args)))