X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Falpha%2Fsubprim.lisp;h=d81cf12eb795249444aa774408acdf6e5a5b960e;hb=0bca0cb1bf5ce5572ab5cd7ba59f87fed1f2edb0;hp=66e9ef8f85741b8909ffd116f7c44fb392f06538;hpb=6fb6e66f531dfb6140ec3e0cc8f84f6ecd1927ca;p=sbcl.git

diff --git a/src/compiler/alpha/subprim.lisp b/src/compiler/alpha/subprim.lisp
index 66e9ef8..d81cf12 100644
--- a/src/compiler/alpha/subprim.lisp
+++ b/src/compiler/alpha/subprim.lisp
@@ -48,4 +48,4 @@
     DONE
     (move count result)))
        
-(define-static-function length (object) :translate length)
+(define-static-fun length (object) :translate length)