X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fx86%2Fsystem.lisp;h=2128d2b3bbe9e238a52ecc92b235ee2ba4259c98;hb=ee5629ee974ee8ce7a1cb245a99e94f8943ffd90;hp=fd14fbfac26c8f1c97c06c003291632b43503839;hpb=a7ec2f1af6881c93585d97fb2fdcdfd98006f217;p=sbcl.git

diff --git a/src/compiler/x86/system.lisp b/src/compiler/x86/system.lisp
index fd14fbf..2128d2b 100644
--- a/src/compiler/x86/system.lisp
+++ b/src/compiler/x86/system.lisp
@@ -385,3 +385,9 @@ number of CPU cycles elapsed as secondary value. EXPERIMENTAL."
   (:policy :fast-safe)
   (:translate %data-dependency-barrier)
   (:generator 3))
+
+(define-vop (pause)
+  (:translate spin-loop-hint)
+  (:policy :fast-safe)
+  (:generator 0
+    (inst pause)))