2016-04-06 14:00:05 +02:00

9 lines
223 B
Plaintext

(lambda (list)
(flet ((enable (x) (pushnew x list))
(disable (x) (setf list (remove x list))))
(disable :sb-thread)
(disable :sb-test)
(enable :sb-unicode)
(enable :sb-core-compression))
list)