From: Nikodemus S. <de...@us...> - 2009-06-17 16:41:29
|
Update of /cvsroot/sbcl/sbcl/src/code In directory fdv4jf1.ch3.sourceforge.com:/tmp/cvs-serv6433/src/code Modified Files: defboot.lisp Log Message: 1.0.29.12: nicer DX capability conditionalization * New *FEATURES*: :STACK-ALLOCATABLE-LISTS, :STACK-ALLOCATABLE-VECTORS, and :STACK-ALLOCATABLE-FIXED-OBJECTS filled in by make-config.sh. * Use them instead of #!+(or arch1 arch2 ...). Index: defboot.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/code/defboot.lisp,v retrieving revision 1.70 retrieving revision 1.71 diff -u -d -r1.70 -r1.71 --- defboot.lisp 10 Jun 2009 13:03:36 -0000 1.70 +++ defboot.lisp 17 Jun 2009 16:40:34 -0000 1.71 @@ -617,9 +617,7 @@ (cons (list ,@(mapcar (lambda (x) `(cons ',(car x) ,(cadr x))) mapped-bindings)) *handler-clusters*))) - ;; KLUDGE: Only on platforms with DX FIXED-ALLOC. FIXME: Add a - ;; feature for that, so we can conditionalize on it neatly. - #!+(or hppa mips x86 x86-64) + #!+stack-allocatable-fixed-objects (declare (truly-dynamic-extent *handler-clusters*)) (progn ,form))))) |