| Paste number 22265: | My messed up code :P |
| Pasted by: | Yawgmoth7 |
| 2 years, 5 months ago | |
| #lisp | |
| Paste contents: |
| (defun compile-source-basic (dir-name &optional config-flags) (ext:shell (format nil "cd ~/~a" dir-name)) (ext:shell (format nil "./configure ~a" config-flags)) (if (eq 0) ;; I actually have no idea if this would work ;; I haven't gotten this far yet, I just put that there for the heck of it since if the command works it returns 0. (progn (ext:shell "make") (if (eq 0) (progn (ext:shell "make install") (if (eq 0) (format "Success!"))))))) (defun get-tarball (url) (ext:shell (format nil "wget ~a" url))) |
This paste has no annotations.