example-test.lisp

   1 (in-package :cl-user)
   2
   3 (defun test-foo ()
   4   (let ((arr1 (make-array 10 :element-type 'single-float :initial-element 0f0))
   5         (arr2 (make-array 10 :element-type 'single-float :initial-element 0f0)))
   6
   7     (loop for i from 0 below 10
   8           do (setf
   9               (aref arr1 i) (float (* i 100))
  10               (aref arr2 i) (float i)))
  11
  12     (format t "Before: ~S~%~S~%" arr1 arr2)
  13
  14     (sb-sys:%primitive sb-vm::%sse-sqrt/simple-array-single-float-1 arr2 arr1 4)
  15
  16     (format t "After: ~S~%~S~%" arr1 arr2)
  17
  18     (sb-sys:%primitive sb-vm::%sse-recip/simple-array-single-float-1 arr1 arr2 4)
  19
  20     (format t "After: ~S~%~S~%" arr1 arr2)
  21
  22     ))
  23