X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fppc%2Fsystem.lisp;h=15c686b2c7dece233140fddfad05145bf8b937f5;hb=20b2378572cf7378f3f267e2234c4234dacfbdc9;hp=8d74e7c02350fed1f20e86a788e3c4ed203af1bf;hpb=4ed3f0d08c3a57a6762018d9622f253ab9d0f2b6;p=sbcl.git diff --git a/src/compiler/ppc/system.lisp b/src/compiler/ppc/system.lisp index 8d74e7c..15c686b 100644 --- a/src/compiler/ppc/system.lisp +++ b/src/compiler/ppc/system.lisp @@ -210,18 +210,16 @@ ;;;; Other random VOPs. -(defknown sb!unix::do-pending-interrupt () (values)) -(define-vop (sb!unix::do-pending-interrupt) +(defknown sb!unix::receive-pending-interrupt () (values)) +(define-vop (sb!unix::receive-pending-interrupt) (:policy :fast-safe) - (:translate sb!unix::do-pending-interrupt) + (:translate sb!unix::receive-pending-interrupt) (:generator 1 (inst unimp pending-interrupt-trap))) (define-vop (halt) (:generator 1 (inst unimp halt-trap))) - - ;;;; Dynamic vop count collection support