mirror of https://github.com/rusefi/bldc.git
18 lines
322 B
Common Lisp
18 lines
322 B
Common Lisp
|
|
(defun repeat_eval (c n)
|
|
(if ( = n 0)
|
|
()
|
|
(progn
|
|
(c n)
|
|
(bufcreate 10)
|
|
(repeat_eval c (- n 1)))))
|
|
|
|
|
|
|
|
(defun code (x) (def apa (eval `(read (str-merge "bepa" (str-from-n x))))))
|
|
|
|
; Create just enough symbols and symbols and arrays to trigger GC.
|
|
(repeat_eval code 432)
|
|
|
|
(check (eq apa 'bepa1))
|