From 301738051d82c444ddb0205e22ae04d97dacca3b Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Sat, 10 Feb 1990 15:46:09 +0000 Subject: [PATCH] Fixed a use of the obsolete %FUNCTION-CONSTANTS-OFFSET constant. --- code/purify.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/code/purify.lisp b/code/purify.lisp index 4fa9149ba..cd6f7a969 100644 --- a/code/purify.lisp +++ b/code/purify.lisp @@ -207,7 +207,7 @@ ;;; (defun mark-function (fun) (let ((len (%primitive header-length fun))) - (do ((i %function-constants-offset (1+ i))) + (do ((i %function-constants-constants-offset (1+ i))) ((= i len)) (let ((el (%primitive header-ref fun i))) (when (symbolp el) -- GitLab