diff --git a/code/purify.lisp b/code/purify.lisp index 4fa9149ba339ee6aeaf7599da5e3c8e66cdc2889..cd6f7a969b76fae78072debfc32dd999cfaca1fd 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)