This commit is contained in:
@@ -0,0 +1,12 @@
|
||||
; canada
|
||||
(let ((data (read)))
|
||||
(gc-flip)
|
||||
(print-gc-statistics)
|
||||
(newline)
|
||||
(display "records: ")
|
||||
(display (vector-length data)))
|
||||
|
||||
(gc-flip)
|
||||
(print-gc-statistics)
|
||||
|
||||
|
||||
Reference in New Issue
Block a user