From a18b41402363b662ec59ddaa100f1e417e76aef3 Mon Sep 17 00:00:00 2001 From: Alastair Bridgewater Date: Tue, 25 Oct 2011 10:25:25 -0400 Subject: [PATCH] Fix unhandled error in float.pure.lisp on non-x86oids. * SB-VM::TOUCH-OBJECT doesn't exist on non-x86oids, and the package is locked. Disable reading of forms that refer to it on non-x86oids. --- tests/float.pure.lisp | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/tests/float.pure.lisp b/tests/float.pure.lisp index 35f8628..64f601e 100644 --- a/tests/float.pure.lisp +++ b/tests/float.pure.lisp @@ -319,6 +319,12 @@ (macrolet ((with-pinned-floats ((count type &rest names) &body body) "Force COUNT float values to be kept live (and hopefully in registers), fill a temporary register with noise, and execute BODY." + ;; KLUDGE: SB-VM is locked, and non-x86oids don't have + ;; SB-VM::TOUCH-OBJECT. Don't even READ this body on + ;; other platforms. + #-(or x86 x86-64) + (declare (ignore count type names body)) + #+(or x86 x86-64) (let ((dummy (loop repeat count collect (or (pop names) (gensym "TEMP"))))) -- 1.7.10.4