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

[Frode Vatvedt Fjeld]

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

Modified Files:
	compiler.lisp 
Log Message:
*** empty log message ***
Date: Wed Nov 10 18:37:21 2004
Author: ffjeld

Index: movitz/compiler.lisp
diff -u movitz/compiler.lisp:1.103 movitz/compiler.lisp:1.104
--- movitz/compiler.lisp:1.103	Wed Nov 10 16:31:58 2004
+++ movitz/compiler.lisp	Wed Nov 10 18:37:20 2004
@@ -8,7 +8,7 @@
 ;;;; Created at:    Wed Oct 25 12:30:49 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: compiler.lisp,v 1.103 2004/11/10 15:31:58 ffjeld Exp $
+;;;; $Id: compiler.lisp,v 1.104 2004/11/10 17:37:20 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -5742,7 +5742,9 @@
       (stack-delta from-env to-env)
     (assert stack-distance)
     (assert (null unwind-protects) ()
-      "Lexical unwind-protect not implemented.")
+      "Lexical unwind-protect not implemented, to-env: ~S." to-env)
+    (when (plusp num-dynamic-slots)
+      (warn "Lexical jump across ~D specials." num-dynamic-slots))
     (cond
      ((and (eq t stack-distance)
 	   (zerop num-dynamic-slots))