github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-05-05 15:44:10 +00:00
Code Issues Releases Wiki Activity

Update Lisp Logo for new GC-DAEMON list format.

Browse Source 
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)".
This commit is contained in:
Lars Brinkhoff
2020-10-11 11:42:02 +02:00
parent 1f66578276
commit 56404ba0e4
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/llogo/loader.154
View File

@@ -21,7 +21,7 @@
(CONS (PAGEBPORG) (CONS (PAGEBPORG)
(MAPCAR '(LAMBDA (SPACE) (MAPCAR '(LAMBDA (SPACE)
(CONS (- (STATUS SPCSIZE SPACE) (CONS (- (STATUS SPCSIZE SPACE)
(CDDR (ASSOC SPACE FREE))) (NTH 2 (ASSOC SPACE FREE)))
(ERRSET (STATUS PURSIZE SPACE) NIL))) (ERRSET (STATUS PURSIZE SPACE) NIL)))
(STATUS SPCNAMES)))) (STATUS SPCNAMES))))
NIL) NIL)
@@ -108,7 +108,7 @@ UUO:/ ) (PRINC (COND ((NUMBERP PURE) (* PURE 2048.)) (0.)))
(PRINC SPACE) (PRINC SPACE)
(PRINC ':/ ) (PRINC ':/ )
(PRINC (- (- (STATUS SPCSIZE SPACE) (PRINC (- (- (STATUS SPCSIZE SPACE)
(CDDR (ASSOC SPACE FREE))) (NTH 2 (ASSOC SPACE FREE)))
(CAR OLD-SIZE))) (CAR OLD-SIZE)))
(PRINC '/ IMPURE/ WORDS/ USED/ (PRINC '/ IMPURE/ WORDS/ USED/
) (AND (CDR OLD-SIZE) ) (AND (CDR OLD-SIZE)