/[cmucl]/src/code/x86-vm.lisp
ViewVC logotype

Diff of /src/code/x86-vm.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by dtc, Wed Sep 24 15:49:54 1997 UTC revision 1.4 by dtc, Mon Sep 29 04:40:35 1997 UTC
# Line 390  Line 390 
390  ;;; The current alien stack pointer; saved/restored for non-local  ;;; The current alien stack pointer; saved/restored for non-local
391  ;;; exits.  ;;; exits.
392  (defvar *alien-stack*)  (defvar *alien-stack*)
393    
394    ;;;
395    (defun kernel::%instance-set-conditional (object slot test-value new-value)
396      (declare (type instance object)
397               (type index slot))
398      "Atomically compare object's slot value to test-value and if EQ store
399       new-value in the slot. The original value of the slot is returned."
400      (kernel::%instance-set-conditional object slot test-value new-value))

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

  ViewVC Help
Powered by ViewVC 1.1.5