[movitz-cvs] CVS movitz - movitz-cvs@common-lisp.net - mailman3.common-lisp.net

1 Mar 2007

Update of /project/movitz/cvsroot/movitz
In directory clnet:/tmp/cvs-serv21545
Modified Files:
    image.lisp 
Log Message:
Check that function for movitz-disassemble exists.

--- /project/movitz/cvsroot/movitz/image.lisp	2007/02/19 21:57:49	1.109
+++ /project/movitz/cvsroot/movitz/image.lisp	2007/03/01 17:49:30	1.110
@@ -9,7 +9,7 @@
 ;;;; Created at:    Sun Oct 22 00:22:43 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: image.lisp,v 1.109 2007/02/19 21:57:49 ffjeld Exp $
+;;;; $Id: image.lisp,v 1.110 2007/03/01 17:49:30 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
@@ -1312,7 +1312,8 @@
    				   +movitz-fixnum-factor+))))
    	  
 (defun movitz-disassemble (name  &rest args &key ((:image *image*) *image*) &allow-other-keys)
-  (let* ((funobj (movitz-env-named-function name)))
+  (let* ((funobj (or (movitz-env-named-function name)
+                     (error "~S has no function definition." name))))
     (declare (special *image*))
     (apply #'movitz-disassemble-funobj funobj :name name args)))

    