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 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (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 @@ ...@@ -162,6 +162,11 @@
switch will invoke batch-mode processing. If true, the produced core switch will invoke batch-mode processing. If true, the produced core
will always be in batch-mode, regardless of any command-line switches." 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) #+mp (mp::shutdown-multi-processing)
(when (fboundp 'eval:flush-interpreted-function-cache) (when (fboundp 'eval:flush-interpreted-function-cache)
(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