Update of /project/movitz/cvsroot/movitz/losp/muerte In directory clnet:/tmp/cvs-serv30647

Modified Files: interrupt.lisp Log Message: First implementation of new &key-parsing strategy.

--- /project/movitz/cvsroot/movitz/losp/muerte/interrupt.lisp 2006/05/06 21:15:46 1.52 +++ /project/movitz/cvsroot/movitz/losp/muerte/interrupt.lisp 2007/02/19 20:24:54 1.53 @@ -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.52 2006/05/06 21:15:46 ffjeld Exp $ +;;;; $Id: interrupt.lisp,v 1.53 2007/02/19 20:24:54 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -382,6 +382,14 @@ (error "Not a function: ~S" (dereference $edx))) (70 (error "[EIP=~@Z] Index ~@Z out of bounds ~@Z for ~S." $eip $ecx $ebx (dereference $eax))) + (72 + (ecase (dereference $eax) + (1 (error 'program-error + :format-control "Illegal keyword argument.")) + (2 (error 'program-error + :format-control "Keyword not a symbol.")) + (4 (error 'program-error + :format-control "Odd number of keyword arguments.")))) (98 (let ((name (dereference $edx))) (when (symbolp name)