Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv14208
Modified Files: conditions.lisp Log Message: Cleaned up most ":int 107" instances. Now, we mostly use the semi-standardized ":int 64" which means that the value in EAX wasn't integer. The default interrupt-handler understands this and signals the appropriate error.
Date: Tue Jul 20 01:54:05 2004 Author: ffjeld
Index: movitz/losp/muerte/conditions.lisp diff -u movitz/losp/muerte/conditions.lisp:1.8 movitz/losp/muerte/conditions.lisp:1.9 --- movitz/losp/muerte/conditions.lisp:1.8 Mon Jul 12 00:54:30 2004 +++ movitz/losp/muerte/conditions.lisp Tue Jul 20 01:54:05 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Wed Nov 20 15:47:04 2002 ;;;; -;;;; $Id: conditions.lisp,v 1.8 2004/07/12 07:54:30 ffjeld Exp $ +;;;; $Id: conditions.lisp,v 1.9 2004/07/20 08:54:05 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -130,6 +130,18 @@ (funobj-name (condition-function c)) (funobj-lambda-list (condition-function c)) (condition-argument-count c))))) + +(define-condition index-out-of-range (error) + ((index + :initarg :index + :reader condition-index) + (range + :initarg :range + :reader condition-range)) + (:report (lambda (c s) + (format s "Index ~D is beyond range 0-~D." + (condition-index c) + (condition-range c)))))
(define-condition stream-error (error) ((stream