Skip to content
Snippets Groups Projects
Commit 8a3305b0 authored by toy's avatar toy
Browse files

From Eric Marsden:

Trying to save-lisp to a filename whose directory component doesn't
exist will currently generate a "bad address" error from Unix.

   * add some sanity checking to the output file argument to
     EXT:SAVE-LISP.
parent 25d776fd
No related branches found
No related tags found
No related merge requests found
......@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/save.lisp,v 1.45 2003/01/29 19:47:47 toy Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/save.lisp,v 1.46 2003/01/30 17:18:59 toy Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -162,6 +162,11 @@
switch will invoke batch-mode processing. If true, the produced core
will always be in batch-mode, regardless of any command-line switches."
(unless (probe-file (directory-namestring core-file-name))
(error 'simple-file-error
:format-control "Directory ~S does not exist"
:format-arguments (list (directory-namestring core-file-name))))
#+mp (mp::shutdown-multi-processing)
(when (fboundp 'eval:flush-interpreted-function-cache)
(eval:flush-interpreted-function-cache))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment