added more code to test1.lsp