Skip to content
Snippets Groups Projects
Commit 30173805 authored by ram's avatar ram
Browse files

Fixed a use of the obsolete %FUNCTION-CONSTANTS-OFFSET constant.

parent 32b0869d
No related branches found
No related tags found
No related merge requests found
...@@ -207,7 +207,7 @@ ...@@ -207,7 +207,7 @@
;;; ;;;
(defun mark-function (fun) (defun mark-function (fun)
(let ((len (%primitive header-length fun))) (let ((len (%primitive header-length fun)))
(do ((i %function-constants-offset (1+ i))) (do ((i %function-constants-constants-offset (1+ i)))
((= i len)) ((= i len))
(let ((el (%primitive header-ref fun i))) (let ((el (%primitive header-ref fun i)))
(when (symbolp el) (when (symbolp el)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment