(defun run-maxima () (interactive) (w32-shell-execute "open" "D://gnu//Maxima-5.17.0//wxMaxima//wxMaxima.exe") ) (defun run-word () (interactive) (w32-shell-execute "open" "winword") ) (defun run-ppt () (interactive) (w32-shell-execute "open" "powerpnt") ) ;split xlibert.lsp to xilbert lsp ;test split-string ;(setf xlstring "xilbert.lsp") ;(split-string xlstring "//.") ;compile and run c program (defun cc-and-run () (interactive) (save-buffer) (let (fshort-name fshort-name-without-ext full-name full-name-without-ext) (setf fshort-name (buffer-name)) (setf full-name (buffer-file-name)) (setf full-name-without-ext (car (split-string full-name "//."))) (setf fshort-name-without-ext (car (split-string fshort-name "//."))) (shell-command (concat "c++ " full-name " -o " fshort-name-without-ext ".exe")) (shell-command (concat full-name-without-ext ".exe"))))