Update of /project/movitz/cvsroot/movitz In directory clnet:/tmp/cvs-serv9078 Modified Files: asm-x86.lisp Log Message: Work on asm:proglist-encode. It's now (apparently) working (i.e. able to resolve forward references), but still lacking in features required by the movitz compiler. --- /project/movitz/cvsroot/movitz/asm-x86.lisp 2008/01/29 22:25:09 1.10 +++ /project/movitz/cvsroot/movitz/asm-x86.lisp 2008/01/31 21:11:28 1.11 @@ -6,7 +6,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef@acm.org> ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: asm-x86.lisp,v 1.10 2008/01/29 22:25:09 ffjeld Exp $ +;;;; $Id: asm-x86.lisp,v 1.11 2008/01/31 21:11:28 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -304,9 +304,10 @@ x) (symbol-reference (let ((s (symbol-reference-symbol x))) - (cdr (or (assoc s *symtab*) - (error 'unresolved-symbol - :symbol s))))))) + (loop (with-simple-restart (retry-symbol-resolve "Retry resolving ~S." s) + (return (cdr (or (assoc s *symtab*) + (error 'unresolved-symbol + :symbol s)))))))))) (defun resolve-and-encode (x type &key size) (encode-integer (cond