| Paste number 152720: | save and lisp and carry on |
| Pasted by: | phf |
| When: | 9 years, 7 months ago |
| Share: | Tweet this! | http://paste.lisp.org/+39U8 |
| Channel: | None |
| Paste contents: |
(defun snapshot (&optional (core-file-name "snapshot.core") waitp)
(let ((pid (sb-posix:fork)))
(cond ((= pid 0)
(sb-ext:save-lisp-and-die core-file-name))
(waitp (sb-posix:wait)))))
This paste has no annotations.