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

Modified Files: compiler.lisp Log Message: Detect if code declares a jumper-set multiple times, don't just silently overwrite the old jumper-set, which caused very weird effects when such a jumper was actually used.

Date: Tue Jul 20 02:08:38 2004 Author: ffjeld

Index: movitz/compiler.lisp diff -u movitz/compiler.lisp:1.77 movitz/compiler.lisp:1.78 --- movitz/compiler.lisp:1.77 Sun Jul 18 16:45:45 2004 +++ movitz/compiler.lisp Tue Jul 20 02:08:38 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.77 2004/07/18 23:45:45 ffjeld Exp $ +;;;; $Id: compiler.lisp,v 1.78 2004/07/20 09:08:38 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -2497,6 +2497,8 @@ (:declare-label-set (destructuring-bind (name set) (cdr instruction) + (assert (not (getf jumper-sets name)) () + "Duplicate jumper declaration for ~S." name) (setf (getf jumper-sets name) set)))) do (let ((sub (instruction-sub-program instruction))) (when sub (process sub))))))