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 bug (error)
  13   ((message :reader message :initarg :message))
  14   (:report (lambda (condition stream)
  15              (format stream "~A~%. This seems to be a bug in IOlib. ~
  16                              Please report on iolib-devel@common-lisp.net."
  17                      (message condition)))))
  18
  19 (defun bug (control &rest args)
  20   (error 'bug :message (format nil "~?" control args)))