From: William H. N. <wn...@us...> - 2003-05-03 18:20:15
|
Update of /cvsroot/sbcl/sbcl/src/assembly/hppa In directory sc8-pr-cvs1:/tmp/cvs-serv17236 Modified Files: support.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: support.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/assembly/hppa/support.lisp,v retrieving revision 1.1 retrieving revision 1.2 diff -u -d -r1.1 -r1.2 --- support.lisp 19 Aug 2002 12:14:00 -0000 1.1 +++ support.lisp 3 May 2003 18:20:11 -0000 1.2 @@ -4,7 +4,7 @@ (!def-vm-support-routine generate-call-sequence (name style vop) (ecase style (:raw - (let ((fixup (gensym "FIXUP-"))) + (with-unique-names (fixup) (values `((let ((fixup (make-fixup ',name :assembly-routine))) (inst ldil fixup ,fixup) @@ -41,7 +41,7 @@ ,nfp-save) (:save-p :compute-only))))) (:none - (let ((fixup (gensym "FIXUP-"))) + (with-unique-names (fixup) (values `((let ((fixup (make-fixup ',name :assembly-routine))) (inst ldil fixup ,fixup) |