From 4ac51598b761de0a591f5db3a7078cb92c959214 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Sat, 10 Feb 1990 19:29:07 +0000 Subject: [PATCH] Fixed function name. --- code/purify.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/code/purify.lisp b/code/purify.lisp index cd6f7a969..0f4def8a3 100644 --- a/code/purify.lisp +++ b/code/purify.lisp @@ -302,7 +302,7 @@ ;;; Copy a function object into read-only space. This only moves the ;;; function (entry or constants) object itself, and lets GC scavenge. ;;; -(defun transport-function-entry (fun) +(defun transport-function-object (fun) (%primitive set-allocation-space %read-only-space) (let* ((len (%primitive header-length fun)) (res (%primitive alloc-function len))) -- GitLab