Update of /project/movitz/cvsroot/movitz/losp/muerte In directory clnet:/tmp/cvs-serv18149 Modified Files: interrupt.lisp Log Message: Fix error condition when funcalling a non-function. --- /project/movitz/cvsroot/movitz/losp/muerte/interrupt.lisp 2007/02/22 21:03:50 1.54 +++ /project/movitz/cvsroot/movitz/losp/muerte/interrupt.lisp 2007/03/26 21:11:43 1.55 @@ -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.54 2007/02/22 21:03:50 ffjeld Exp $ +;;;; $Id: interrupt.lisp,v 1.55 2007/03/26 21:11:43 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -344,7 +344,7 @@ (with-inline-assembly (:returns :nothing) (:nop)))) (69 (error 'type-error :datum (dereference $eax) - :expected-type (aref #(cons) + :expected-type (aref #(cons function) (dereference $ecx :unsigned-byte8)))) (70 (error "Unaligned memref access.")) ((5 55)