do-collect.el:
do-collect-with-gc.el:
lambda-in-let.el
lambda-in-let-with-gc.el
(require 'cl) | |
(defvar num-loop-1 30) | |
(defvar num-loop-2 100000) | |
(loop for i from 1 to num-loop-1 do | |
(loop for j from 1 to num-loop-2 collect | |
(lexical-let ((x `(,i ,j))) x)) | |
(garbage-collect)) |
(require 'cl) | |
(defvar num-loop-1 30) | |
(defvar num-loop-2 100000) | |
(loop for i from 1 to num-loop-1 do | |
(loop for j from 1 to num-loop-2 collect | |
(lexical-let ((x `(,i ,j))) x))) |
(require 'cl) | |
(defvar num-loop-1 30) | |
(defvar num-loop-2 100000) | |
(loop for i from 1 to num-loop-1 do | |
(loop for j from 1 to num-loop-2 collect | |
(lexical-let ((x `(,i ,j))) (lambda () x))) | |
(garbage-collect)) |
(require 'cl) | |
(defvar num-loop-1 30) | |
(defvar num-loop-2 100000) | |
(loop for i from 1 to num-loop-1 do | |
(loop for j from 1 to num-loop-2 collect | |
(lexical-let ((x `(,i ,j))) (lambda () x)))) |