diff --git a/code/gc.lisp b/code/gc.lisp index 6f212a8e703fda1a17a697dfdd024e42d105b1eb..9622aaf3506a2a3cc251fd3bf228aa01ebbe49ac 100644 --- a/code/gc.lisp +++ b/code/gc.lisp @@ -336,7 +336,7 @@ ;; ;; Find all vector-like objects on the stack, putting code vectors in a ;; separate table. (step 1) - (do ((sp (%primitive pointer+ (%primitive current-cont) + (do ((sp (%primitive pointer+ (%primitive current-fp) (- %stack-increment)) (%primitive pointer+ sp (- %stack-increment)))) ((%primitive pointer< sp base))