From 4fd69a22c915b6287fb7fc1dc6e8eb450bad0702 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sun, 19 Aug 2007 18:23:20 +0000 Subject: * i-syscmd.boot.pamphlet (SPADRWRITE): Don't confuse Boot comments with Lisp comments. --- src/interp/ChangeLog | 5 +++++ src/interp/i-syscmd.boot.pamphlet | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) (limited to 'src/interp') diff --git a/src/interp/ChangeLog b/src/interp/ChangeLog index 1ea593d5..07a1eb5e 100644 --- a/src/interp/ChangeLog +++ b/src/interp/ChangeLog @@ -1,3 +1,8 @@ +2007-08-19 Gabriel Dos Reis + + * i-syscmd.boot.pamphlet (SPADRWRITE): Don't confuse Boot comments + with Lisp comments. + 2007-08-19 Gabriel Dos Reis * bootfuns.lisp.pamphlet (def-boot-fun): Remove. diff --git a/src/interp/i-syscmd.boot.pamphlet b/src/interp/i-syscmd.boot.pamphlet index e846b570..9a80eb4a 100644 --- a/src/interp/i-syscmd.boot.pamphlet +++ b/src/interp/i-syscmd.boot.pamphlet @@ -1874,7 +1874,7 @@ SPADRREAD(vec, stream) == SPADRWRITE(vec, item, stream) == val := SPADRWRITE0(vec, item, stream) val = 'writifyFailed => - throwKeyedMsg("S2IH0036", nil) ; cannot save value to file + throwKeyedMsg("S2IH0036", nil) -- cannot save value to file item SPADRWRITE0(vec, item, stream) == -- cgit v1.2.3