Remove obolete case- there aren't fdefns in immobile space

blkt · Jul 10, 2024 · 35bc399 · 35bc399
1 parent eb13772
commit 35bc399
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/src/code/gc.lisp b/src/code/gc.lisp
@@ -428,8 +428,7 @@ statistics are appended to it."
              (when (simple-fun-p object)
                (setq addr (get-lisp-obj-address (fun-code-header object))))
              (let ((sap (int-sap (logandc2 addr sb-vm:lowtag-mask))))
-               (logand (if (fdefn-p object) (sap-ref-8 sap 1) (sap-ref-8 sap 3))
-                       #xF)))))))
+               (logand (sap-ref-8 sap 3) #xF)))))))
 
 #+mark-region-gc
 (defun generation-of (object)