/[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.4 by dtc, Mon Sep 29 04:40:35 1997 UTC revision 1.5 by dtc, Sat Nov 1 22:58:21 1997 UTC
# Line 398  Line 398 
398    "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
399     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."
400    (kernel::%instance-set-conditional object slot test-value new-value))    (kernel::%instance-set-conditional object slot test-value new-value))
401    
402    #+complex-float
403    (progn
404    (defun make-complex-single-float (x y)
405      (declare (type single-float x y))
406      (the (complex single-float) (make-complex-single-float x y)))
407    
408    (defun make-complex-double-float (x y)
409      (declare (type double-float x y))
410      (the (complex double-float) (make-complex-double-float x y)))
411    
412    (defun complex-single-float-real (x)
413      (declare (type (complex single-float) x))
414      (the single-float (complex-single-float-real x)))
415    
416    (defun complex-double-float-real (x)
417      (declare (type (complex double-float) x))
418      (the double-float (complex-double-float-real x)))
419    
420    (defun complex-single-float-imag (x)
421      (declare (type (complex single-float) x))
422      (the single-float (complex-single-float-imag x)))
423    
424    (defun complex-double-float-imag (x)
425      (declare (type (complex double-float) x))
426      (the double-float (complex-double-float-imag x)))
427    ) ; complex-float

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

  ViewVC Help
Powered by ViewVC 1.1.5