[movitz-cvs] CVS movitz/losp/muerte

[ffjeld]

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 at 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)