1.0.41.35: ppc: Implement compare-and-swap-vops.
[sbcl.git] / src / compiler / generic / late-type-vops.lisp
index ae5cee1..2774689 100644 (file)
   (instance-pointer-lowtag)
   :mask lowtag-mask)
 
+(!define-type-vops %other-pointer-p nil nil nil
+  (other-pointer-lowtag)
+  :mask lowtag-mask)
+
 (!define-type-vops bignump check-bignum bignum object-not-bignum-error
   (bignum-widetag))