From 3f4187afcd66fbe44fb1799e0628afa6953ab928 Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Mon, 19 Jan 2009 00:22:55 +0100 Subject: [PATCH] Rename condition BUG to IOLIB-BUG. --- base/conditions.lisp | 15 ++++++++------- base/pkgdcl.lisp | 2 +- 2 files changed, 9 insertions(+), 8 deletions(-) diff --git a/base/conditions.lisp b/base/conditions.lisp index 9fe8d34..5f61e47 100644 --- a/base/conditions.lisp +++ b/base/conditions.lisp @@ -9,12 +9,13 @@ ;;; Bugs ;;;------------------------------------------------------------------------- -(define-condition bug (error) - ((message :reader message :initarg :message)) - (:report (lambda (condition stream) - (format stream "~A~%. This seems to be a bug in IOlib. ~ - Please report on iolib-devel@common-lisp.net." - (message condition))))) +(define-condition iolib-bug (error) + ((message :initarg :message :reader iolib-bug-message)) + (:report + (lambda (condition stream) + (format stream "~A.~%This seems to be a bug in IOlib. ~ + Please report it to iolib-devel@common-lisp.net" + (iolib-bug-message condition))))) (defun bug (control &rest args) - (error 'bug :message (format nil "~?" control args))) + (error 'iolib-bug :message (format nil "~?" control args))) diff --git a/base/pkgdcl.lisp b/base/pkgdcl.lisp index 1cbcd26..fc1260d 100644 --- a/base/pkgdcl.lisp +++ b/base/pkgdcl.lisp @@ -10,7 +10,7 @@ (:shadow #:defun #:defmethod #:defmacro #:define-compiler-macro) (:export ;; Conditions - #:bug + #:bug #:iolib-bug ;; Debugging #:*safety-checks* #:debug-only #:debug-only* -- 2.11.4.GIT