X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fentry.lisp;h=33ea6cc6ec98ef992cf084ae9452a20927f24fac;hb=683874b497a99cd2c11b6c5d9b47e2785b1ede5f;hp=5c5681263d403abc0f7928f596a10276d7d7fe71;hpb=1a6def3955b715472eb2c75b15660912b9f90173;p=sbcl.git

diff --git a/src/compiler/entry.lisp b/src/compiler/entry.lisp
index 5c56812..33ea6cc 100644
--- a/src/compiler/entry.lisp
+++ b/src/compiler/entry.lisp
@@ -54,7 +54,7 @@
 (defun compute-entry-info (fun info)
   (declare (type clambda fun) (type entry-info info))
   (let ((bind (lambda-bind fun))
-	(internal-fun (functional-entry-function fun)))
+	(internal-fun (functional-entry-fun fun)))
     (setf (entry-info-closure-p info)
 	  (not (null (physenv-closure (lambda-physenv fun)))))
     (setf (entry-info-offset info) (gen-label))
@@ -87,7 +87,7 @@
       (case (functional-kind lambda)
 	(:external
 	 (unless (lambda-has-external-references-p lambda)
-	   (let* ((ef (functional-entry-function lambda))
+	   (let* ((ef (functional-entry-fun lambda))
 		  (new (make-functional
 			:kind :toplevel-xep
 			:info (leaf-info lambda)