From f0f98b9acd794d1f2d6f62c8bbebf761bcea0de8 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Mon, 23 Apr 1990 13:37:24 +0000 Subject: [PATCH] current-cont -> current-fp. --- code/gc.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/code/gc.lisp b/code/gc.lisp index 6f212a8e7..9622aaf35 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)) -- GitLab