Work around excessive consing via ROOM by turning off
authorJoshua Elsasser <joshua@elsasser.org>
Tue, 29 Nov 2011 17:18:00 +0000 (09:18 -0800)
committerJoshua Elsasser <joshua@elsasser.org>
Tue, 29 Nov 2011 17:18:00 +0000 (09:18 -0800)
alien-funcall-saves-fp-and-pc.

src/code/room.lisp

index 4f81df1..c56cd97 100644 (file)
 #!-sb-fluid (declaim (maybe-inline map-allocated-objects))
 (defun map-allocated-objects (fun space &optional careful)
   (declare (type function fun) (type spaces space))
 #!-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)
   (flet ((make-obj (tagged-address)
            (if careful
                (make-lisp-obj tagged-address nil)