From: William H. N. <wn...@us...> - 2003-05-03 18:27:51
|
Update of /cvsroot/sbcl/sbcl/src/compiler/mips In directory sc8-pr-cvs1:/tmp/cvs-serv21671 Modified Files: macros.lisp Log Message: 0.8alpha.0.9: defined WITH-UNIQUE-NAMES grepped for 'gensym "', and used WITH-UNIQUE-NAMES instead where it seemed more convenient tweaked miscellaneous text I noticed in my greppage added test case for just-fixed compiler bug bugfix: one last s/layout-class/layout-classoid/ Index: macros.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/compiler/mips/macros.lisp,v retrieving revision 1.3 retrieving revision 1.4 diff -u -d -r1.3 -r1.4 --- macros.lisp 15 Sep 2002 18:18:13 -0000 1.3 +++ macros.lisp 3 May 2003 18:27:48 -0000 1.4 @@ -228,8 +228,7 @@ Emit code for a continuable error with the specified Error-Code and context Values. If the error is continued, execution resumes after the GENERATE-CERROR-CODE form." - (let ((continue (gensym "CONTINUE-LABEL-")) - (error (gensym "ERROR-LABEL-"))) + (with-unique-names (continue error) `(let ((,continue (gen-label))) (emit-label ,continue) (assemble (*elsewhere*) @@ -237,9 +236,10 @@ (emit-label ,error) (cerror-call ,vop ,continue ,error-code ,@values) ,error))))) - -;;; PSEUDO-ATOMIC -- Handy macro for making sequences look atomic. +;;;; PSEUDO-ATOMIC + +;;; handy macro for making sequences look atomic (defmacro pseudo-atomic ((flag-tn &key (extra 0)) &rest forms) `(progn (aver (= (tn-offset ,flag-tn) nl4-offset)) @@ -257,10 +257,8 @@ (inst addu alloc-tn (1- ,extra)) (inst break 16) (emit-label label))))) - - -;;;; Memory accessor vop generators +;;;; memory accessor vop generators (deftype load/store-index (scale lowtag min-offset &optional (max-offset min-offset)) |