[movitz-cvs] CVS update: movitz/image.lisp

[Frode Vatvedt Fjeld]

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