/[slime]/slime/swank-sbcl.lisp
ViewVC logotype

Diff of /slime/swank-sbcl.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.272 by sboukarev, Wed Jul 21 13:40:32 2010 UTC revision 1.273 by sboukarev, Thu Aug 12 12:09:45 2010 UTC
# Line 1551  stack." Line 1551  stack."
1551  (defimplementation save-image (filename &optional restart-function)  (defimplementation save-image (filename &optional restart-function)
1552    (let ((pid (sb-posix:fork)))    (let ((pid (sb-posix:fork)))
1553      (cond ((= pid 0)      (cond ((= pid 0)
1554             (let ((args `(,filename             (apply #'sb-ext:save-lisp-and-die filename
1555                           ,@(if restart-function                    (when restart-function
1556                                 `((:toplevel ,restart-function))))))                      (list :toplevel restart-function))))
              (apply #'sb-ext:save-lisp-and-die args)))  
1557            (t            (t
1558             (multiple-value-bind (rpid status) (sb-posix:waitpid pid 0)             (multiple-value-bind (rpid status) (sb-posix:waitpid pid 0)
1559               (assert (= pid rpid))               (assert (= pid rpid))

Legend:
Removed from v.1.272  
changed lines
  Added in v.1.273

  ViewVC Help
Powered by ViewVC 1.1.5