From 56404ba0e4391d4d1ed58aa20cc17dc6370539ee Mon Sep 17 00:00:00 2001 From: Lars Brinkhoff Date: Sun, 11 Oct 2020 11:42:02 +0200 Subject: [PATCH] Update Lisp Logo for new GC-DAEMON list format. The format of the list passed to GC-DAEMON has changed. LLOGO expects a list of "(space old-free . new-free)". The new format is "(space old-free new-free old-size new-size)". --- src/llogo/loader.154 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/llogo/loader.154 b/src/llogo/loader.154 index 48ad0ec6..d844d0aa 100644 --- a/src/llogo/loader.154 +++ b/src/llogo/loader.154 @@ -21,7 +21,7 @@ (CONS (PAGEBPORG) (MAPCAR '(LAMBDA (SPACE) (CONS (- (STATUS SPCSIZE SPACE) - (CDDR (ASSOC SPACE FREE))) + (NTH 2 (ASSOC SPACE FREE))) (ERRSET (STATUS PURSIZE SPACE) NIL))) (STATUS SPCNAMES)))) NIL) @@ -108,7 +108,7 @@ UUO:/ ) (PRINC (COND ((NUMBERP PURE) (* PURE 2048.)) (0.))) (PRINC SPACE) (PRINC ':/ ) (PRINC (- (- (STATUS SPCSIZE SPACE) - (CDDR (ASSOC SPACE FREE))) + (NTH 2 (ASSOC SPACE FREE))) (CAR OLD-SIZE))) (PRINC '/ IMPURE/ WORDS/ USED/ ) (AND (CDR OLD-SIZE)