Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- definition> (in-package :cl-user)
- #<Package "COMMON-LISP-USER">
- cl-user> (room)
- Approximately 27,131,904 bytes of memory can be allocated
- before the next full GC is triggered.
- Total Size Free Used
- Lisp Heap: 139460608 (136192K) 27131904 (26496K) 112328704 (109696K)
- Stacks: 76091656 (74308K) 76052752 (74270K) 38904 (38K)
- Static: 21653504 (21146K) 0 (0K) 21653504 (21146K)
- 376667.000 MB reserved for heap expansion.
- nil
- cl-user> (defparameter *table* (let ((table (make-hash-table :test (function equal))))
- (loop :for i below 2e6 :do (setf (gethash (format nil "http://example.com/q?id=~10,'0D" i) table) i))
- table))
- *table*
- cl-user> (room)
- Approximately 28,180,480 bytes of memory can be allocated
- before the next full GC is triggered.
- Total Size Free Used
- Lisp Heap: 466223104 (455296K) 28180480 (27520K) 438042624 (427776K)
- Stacks: 76091656 (74308K) 76052144 (74270K) 39512 (39K)
- Static: 21653504 (21146K) 0 (0K) 21653504 (21146K)
- 376355.370 MB reserved for heap expansion.
- nil
- cl-user>
Advertisement
Advertisement
Advertisement
RAW Paste Data
Copied
Advertisement