Showing the changes to test (1 of 1 file). Show all
Unified · Split
| @@ -17,4 +17,14 @@ · 16 unmodified lines | ||
| 17 | 17 | (write (eval longg)) |
| 18 | 18 | (newline) |
| 19 | 19 | |
| 20 | +(princ "----- before GC") (newline) | |
| 21 | +(vm-stats) | |
| 22 | +(gc) | |
| 23 | +(princ "----- after GC") (newline) | |
| 24 | +(vm-stats) | |
| 25 | +(makunbound 'ones) | |
| 26 | +(makunbound 'big) | |
| 27 | +(makunbound 'longg) | |
| 28 | +(gc) | |
| 29 | +(princ "----- after makunbound+GC") (newline) | |
| 20 | 30 | (vm-stats) |