/[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.9 by dtc, Sun Nov 16 13:53:01 1997 UTC revision 1.10 by dtc, Sun Nov 16 13:59:57 1997 UTC
# Line 432  Line 432 
432    "Atomically compare object's slot value to test-value and if EQ store    "Atomically compare object's slot value to test-value and if EQ store
433     new-value in the slot. The original value of the slot is returned."     new-value in the slot. The original value of the slot is returned."
434    (kernel::%instance-set-conditional object slot test-value new-value))    (kernel::%instance-set-conditional object slot test-value new-value))
   
 #+complex-float  
 (progn  
 (defun complex-single-float-real (x)  
   (declare (type (complex single-float) x))  
   (the single-float (complex-single-float-real x)))  
   
 (defun complex-double-float-real (x)  
   (declare (type (complex double-float) x))  
   (the double-float (complex-double-float-real x)))  
   
 (defun complex-single-float-imag (x)  
   (declare (type (complex single-float) x))  
   (the single-float (complex-single-float-imag x)))  
   
 (defun complex-double-float-imag (x)  
   (declare (type (complex double-float) x))  
   (the double-float (complex-double-float-imag x)))  
 ) ; complex-float  

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

  ViewVC Help
Powered by ViewVC 1.1.5