diff --git a/code/debug-int.lisp b/code/debug-int.lisp index b968e3a7e514b63a036177a3b3d27fda93664aff..012a35f74c8cf6e867ca1c1c17e0ae77ab335d85 100644 --- a/code/debug-int.lisp +++ b/code/debug-int.lisp @@ -2162,8 +2162,8 @@ (with-nfp ((var) &body body) `(let ((,var (if escaped (int-sap (escape-register escaped - c::nfp-offset)) - (sap-ref-sap fp c::nfp-save-offset)))) + vm::nfp-offset)) + (sap-ref-sap fp vm::nfp-save-offset)))) ,@body))) (ecase (c::sc-offset-scn sc-offset) ((#.vm:any-reg-sc-number #.vm:descriptor-reg-sc-number)