0.pre7.38:

[sbcl.git] / src / compiler / generic / target-core.lisp

diff --git a/src/compiler/generic/target-core.lisp b/src/compiler/generic/target-core.lisp
index b0e698f..da4ac3c 100644 (file)
--- a/src/compiler/generic/target-core.lisp
+++ b/src/compiler/generic/target-core.lisp
@@ -106,6 +106,8 @@
                      (fdefinition-object (cdr const) t))))))))))
   (values))
 
+;;; FIXME: byte compiler to go away completely
+#|
 (defun make-core-byte-component (segment length constants xeps object)
   (declare (type sb!assem:segment segment)
           (type index length)
@@ -166,4 +168,4 @@
                  (setf (code-header-ref code-obj code-obj-index) xep))))))))))
 
   (values))
-
+|#
\ No newline at end of file