0.pre7.76:

[sbcl.git] / src / code / x86-vm.lisp

diff --git a/src/code/x86-vm.lisp b/src/code/x86-vm.lisp
index 65e871c..6439c32 100644 (file)
--- a/src/code/x86-vm.lisp
+++ b/src/code/x86-vm.lisp
@@ -326,14 +326,6 @@
 ;;; the current alien stack pointer; saved/restored for non-local exits
 (defvar *alien-stack*)
 
-(defun sb!kernel::%instance-set-conditional (object slot test-value new-value)
-  (declare (type instance object)
-          (type index slot))
-  #!+sb-doc
-  "Atomically compare object's slot value to test-value and if EQ store
-   new-value in the slot. The original value of the slot is returned."
-  (sb!kernel::%instance-set-conditional object slot test-value new-value))
-
 ;;; Support for the MT19937 random number generator. The update
 ;;; function is implemented as an assembly routine. This definition is
 ;;; transformed to a call to the assembly routine allowing its use in