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