@clisp *(setq *load-verbose* t *print-case* :upcase) *(load "lclc.clisp") ;*(load "clc.clisp") ;*(load "optimizer.clisp") *(load "cmpsome") *(exit) @original logout