| Paste number 22265: | My messed up code :P |
| Pasted by: | Yawgmoth7 |
| When: | 2 years, 11 months ago |
| Share: | Tweet this! | http://paste.lisp.org/+H6H |
| Channel: | #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.