Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv3521

Modified Files: interrupt.lisp Log Message: Use :int 61 for failing on typep list.

Date: Wed Jul 21 18:02:22 2004 Author: ffjeld

Index: movitz/losp/muerte/interrupt.lisp diff -u movitz/losp/muerte/interrupt.lisp:1.17 movitz/losp/muerte/interrupt.lisp:1.18 --- movitz/losp/muerte/interrupt.lisp:1.17 Wed Jul 21 07:16:15 2004 +++ movitz/losp/muerte/interrupt.lisp Wed Jul 21 18:02:22 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Wed Apr 7 01:50:03 2004 ;;;; -;;;; $Id: interrupt.lisp,v 1.17 2004/07/21 14:16:15 ffjeld Exp $ +;;;; $Id: interrupt.lisp,v 1.18 2004/07/22 01:02:22 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -274,12 +274,13 @@ $eip (interrupt-frame-ref :error-code :unsigned-byte32 0 interrupt-frame) $eax $ebx $ecx)) - ((61) + ((60) ;; EAX failed type in EDX. May be restarted by returning with a new value in EAX. (with-simple-restart (continue "Retry with a different value.") (error 'type-error :datum (dereference $eax) :expected-type (dereference $edx))) (format *query-io* "Enter a new value: ") (setf (dereference $eax) (read *query-io*))) + (61 (error 'type-error :datum (dereference $eax) :expected-type 'list)) (62 (error "Trying to save too many values: ~@Z." $ecx)) (63 (error "Primitive assertion error. EIP=~@Z, ESI=~@Z." $eip $esi)) (64 (error 'type-error :datum (dereference $eax) :expected-type 'integer))