Advertisement
Guest User

Untitled

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