1 (declaim (optimize (speed 2) (debug 3) (safety 3)))
2 ;#.(require :alexandria)
6 #+x86-64
(require :cuda-fft
)
10 (:use
:cl
:sb-alien
:sb-c-call
:vector
42 #:draw-unit-intensity-disk-precise
43 #:draw-unit-energy-disk-precise
47 ;; for i in `cat vol.lisp|grep defconst|cut -d " " -f 2`;do echo \#:$i ;done