(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)))))