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

Modified Files: image.lisp Log Message: Fixed some unbound stuff.

Date: Mon Dec 13 12:22:50 2004 Author: ffjeld

Index: movitz/image.lisp diff -u movitz/image.lisp:1.84 movitz/image.lisp:1.85 --- movitz/image.lisp:1.84 Thu Dec 9 15:04:54 2004 +++ movitz/image.lisp Mon Dec 13 12:22:50 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.84 2004/12/09 14:04:54 ffjeld Exp $ +;;;; $Id: image.lisp,v 1.85 2004/12/13 11:22:50 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -824,7 +824,7 @@ that function's code-vector." (let ((code-vector (movitz-symbol-value (movitz-read name)))) - (unless (and code-vector (not (eq 'muerte::unbound code-vector))) + (unless (and code-vector (not (eq 'unbound code-vector))) (cerror "Install an empty vector instead." "Global constant primitive function ~S is not defined!" name) (setf code-vector @@ -922,7 +922,7 @@ (setf (slot-value run-time-context gcf-name) 0) (cond ((or (not gcf-funobj) - (eq 'muerte::unbound gcf-funobj)) + (eq 'unbound gcf-funobj)) (warn "Global constant function ~S is not defined!" gcf-name)) (t (check-type gcf-funobj movitz-funobj) (setf (slot-value run-time-context gcf-name)