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

Modified Files: image.lisp Log Message: Changed find-primitive-function to signal a continuable error if the function is undefined.

Date: Fri Feb 13 17:03:16 2004 Author: ffjeld

Index: movitz/image.lisp diff -u movitz/image.lisp:1.15 movitz/image.lisp:1.16 --- movitz/image.lisp:1.15 Thu Feb 12 06:30:20 2004 +++ movitz/image.lisp Fri Feb 13 17:03:16 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Sun Oct 22 00:22:43 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: image.lisp,v 1.15 2004/02/12 11:30:20 ffjeld Exp $ +;;;; $Id: image.lisp,v 1.16 2004/02/13 22:03:16 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -683,10 +683,12 @@ that function's code-vector." (let ((code-vector (movitz-symbol-value (movitz-read name)))) - (assert (and code-vector - (not (eq 'muerte::unbound code-vector))) - () - "Global constant primitive function ~S is not defined!" name) + (unless (and code-vector (not (eq 'muerte::unbound code-vector))) + (cerror "Install an empty vector instead." + "Global constant primitive function ~S is not defined!" name) + (setf code-vector + (setf (movitz-symbol-value (movitz-read name)) + (movitz-read #())))) (check-type code-vector movitz-vector) code-vector))