0.pre7.55:

[sbcl.git] / src / code / room.lisp

diff --git a/src/code/room.lisp b/src/code/room.lisp
index ecd7c01..ab96ff2 100644 (file)
--- a/src/code/room.lisp
+++ b/src/code/room.lisp
@@ -185,7 +185,7 @@
                (setq current (sap+ current size))))
             ((eql header-type closure-header-type)
              (let* ((obj (make-lisp-obj (logior (sap-int current)
-                                                function-pointer-type)))
+                                                fun-pointer-type)))
                     (size (round-to-dualword
                            (* (the fixnum (1+ (get-closure-length obj)))
                               word-bytes))))