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