Unified · Split
| @@ -17,4 +17,14 @@ · 16 unmodified lines | |||
| 17 | (write (eval longg)) | 17 | (write (eval longg)) |
| 18 | (newline) | 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 | (vm-stats) | 30 | (vm-stats) |