From d3f3f749a6da737af801aa71fd27a35bd3d3a79d Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Thu, 26 Jul 1990 19:12:33 +0000 Subject: [PATCH] Fixed the def-c-routine. --- code/save.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/code/save.lisp b/code/save.lisp index 1f7cc7730..9b9f0568d 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 -- GitLab