Monorepo for Aesthetic.Computer
aesthetic.computer
cl: fix timespec struct order (must be defined before use)
+4
-4
+4
-4
fedac/native/cl/util.lisp
+4
-4
fedac/native/cl/util.lisp
···
29
29
30
30
;;; Monotonic clock
31
31
32
+
(cffi:defcstruct timespec
33
+
(tv-sec :long)
34
+
(tv-nsec :long))
35
+
32
36
(cffi:defcfun ("clock_gettime" %clock-gettime) :int
33
37
(clk-id :int)
34
38
(tp :pointer))
···
42
46
(let ((sec (cffi:foreign-slot-value ts '(:struct timespec) 'tv-sec))
43
47
(nsec (cffi:foreign-slot-value ts '(:struct timespec) 'tv-nsec)))
44
48
(+ (* sec 1000.0d0) (/ nsec 1000000.0d0)))))
45
-
46
-
(cffi:defcstruct timespec
47
-
(tv-sec :long)
48
-
(tv-nsec :long))
49
49
50
50
(cffi:defcfun ("clock_nanosleep" %clock-nanosleep) :int
51
51
(clk-id :int)