Plaster
New
List
Login
common-lisp
default
anonymous
2020.11.05 09:56:54
(sb-ext:gc :full t) (dotimes (n 10000) (eval `(defclass ,(intern (format nil "FOO-~A" n)) () ()))) (sb-ext:gc :full t) (room)
Raw
Annotate
Repaste
Edit