X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fgeneric%2Fgenesis.lisp;h=ed4db168e601253fdfe578bf610de705e610dc2e;hb=f43f136f9b3ff6cae501e850fa67b2183317e212;hp=bfe95ecfb579d2c02611da3c8e110cc1bc263071;hpb=bed279acc9bd04eb1bbf56acb0dcaa3b1acf04f0;p=sbcl.git

diff --git a/src/compiler/generic/genesis.lisp b/src/compiler/generic/genesis.lisp
index bfe95ec..ed4db16 100644
--- a/src/compiler/generic/genesis.lisp
+++ b/src/compiler/generic/genesis.lisp
@@ -1404,13 +1404,13 @@
 
 (defun initialize-static-fns ()
   (let ((*cold-fdefn-gspace* *static*))
-    (dolist (sym sb!vm:*static-functions*)
+    (dolist (sym sb!vm:*static-funs*)
       (let* ((fdefn (cold-fdefinition-object (cold-intern sym)))
 	     (offset (- (+ (- (descriptor-low fdefn)
 			      sb!vm:other-pointer-lowtag)
 			   (* sb!vm:fdefn-raw-addr-slot sb!vm:n-word-bytes))
 			(descriptor-low *nil-descriptor*)))
-	     (desired (sb!vm:static-function-offset sym)))
+	     (desired (sb!vm:static-fun-offset sym)))
 	(unless (= offset desired)
 	  ;; FIXME: should be fatal
 	  (warn "Offset from FDEFN ~S to ~S is ~D, not ~D."