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

Fix problem in the LMODEM file SIGNAL.

Browse Source 
The macro condition-handlers uses the LOOP macro in a way that's no
longer allowed.  The COLLECT clause is followed by two forms: the
first is a check, and the second is actual data for the list.  This
was allowed up until LOOP version 809, but no longer in 818.  Moving
the check do a DO clause fixes the problem.
This commit is contained in:
Lars Brinkhoff
2021-11-09 09:13:13 +01:00
parent 79330791c0
commit aa03281df0
2 changed files with 26 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/eb/signal.31 → src/eb/signal.32
View File

@@ -57,9 +57,10 @@
(t (let ((,cvar (car *signal-comm-var-1)))
(caseq ,cvar
,@ (loop for (c-or-cs arglist . forms) in handlers
collect (or forms
(er-error "Handler has no forms:~%; ~A"
c-or-cs))
do (or forms
(er-error "Handler has no forms:~%; ~A"
c-or-cs))
collect
`(,c-or-cs
(let
((,arglist (cdr