From 768d7b22c6c7e8cc6e1302c79072c09291193bfd Mon Sep 17 00:00:00 2001 From: Joshua Elsasser Date: Tue, 29 Nov 2011 09:18:00 -0800 Subject: [PATCH] Work around excessive consing via ROOM by turning off alien-funcall-saves-fp-and-pc. --- src/code/room.lisp | 1 + 1 file changed, 1 insertion(+) diff --git a/src/code/room.lisp b/src/code/room.lisp index 4f81df1..c56cd97 100644 --- a/src/code/room.lisp +++ b/src/code/room.lisp @@ -212,6 +212,7 @@ #!-sb-fluid (declaim (maybe-inline map-allocated-objects)) (defun map-allocated-objects (fun space &optional careful) (declare (type function fun) (type spaces space)) + (declare (optimize (sb!c:alien-funcall-saves-fp-and-pc 0))) (flet ((make-obj (tagged-address) (if careful (make-lisp-obj tagged-address nil) -- 1.7.10.4