X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fppc%2Fsystem.lisp;h=1482de172cb7c3d0dc7aceea3f31093cdbcf9c58;hb=40bea2551744d3cdc05a79a923fbff79a5755845;hp=684bf3cac9e2710811e5bca5472d03ea784abb05;hpb=152ba31a2cccde6902106a2082a569f9ad83c43b;p=sbcl.git

diff --git a/src/compiler/ppc/system.lisp b/src/compiler/ppc/system.lisp
index 684bf3c..1482de1 100644
--- a/src/compiler/ppc/system.lisp
+++ b/src/compiler/ppc/system.lisp
@@ -285,3 +285,9 @@
   (:policy :fast-safe)
   (:translate %data-dependency-barrier)
   (:generator 3))
+
+;;;; Dummy definition for a spin-loop hint VOP
+(define-vop (spin-loop-hint)
+  (:translate spin-loop-hint)
+  (:policy :fast-safe)
+  (:generator 0))