X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Falpha%2Fcell.lisp;h=3cd855889d85468c6aea6efba3808c37c70818d7;hb=5ba61168c5e0ee518580d555dfc7fd64f9ff8a23;hp=26dae0e2967a7c5f1912b4f6a7101d5ca99125bc;hpb=8e35f6ea93cc8e8a3b26fc104a300bfbac3031b6;p=sbcl.git

diff --git a/src/compiler/alpha/cell.lisp b/src/compiler/alpha/cell.lisp
index 26dae0e..3cd8558 100644
--- a/src/compiler/alpha/cell.lisp
+++ b/src/compiler/alpha/cell.lisp
@@ -35,6 +35,8 @@
         (storew value object offset lowtag))
     #!-gengc
     (storew value object offset lowtag)))
+
+(define-vop (init-slot set-slot))
 
 ;;;; symbol hacking VOPs