diff --git a/code/save.lisp b/code/save.lisp index 1f7cc7730f61dc8fc8ca0ff648a21717555cb48f..9b9f0568d65b96da2a798df1f6bc014d2bc276f9 100644 --- a/code/save.lisp +++ b/code/save.lisp @@ -8,7 +8,7 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/save.lisp,v 1.1.1.4 1990/07/13 20:38:56 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/save.lisp,v 1.1.1.5 1990/07/26 19:12:33 wlott Exp $ ;;; ;;; Dump the current lisp image into a core file. All the real work is done ;;; be C. @@ -46,7 +46,7 @@ (def-c-routine "save" (boolean) - (file (pointer simple-string))) + (file null-terminated-string)) (defun save-lisp (core-file-name &key