Update TP2.lsp