File psl-1983/tests/mini-equal.red artifact 1182cc7bed part of check-in 09c3848028
% MINI-EQUAL.RED on syslisp; Procedure EqStr(s1,S2); Begin scalar n; s1:=strinf(s1); s2:=strinf(s2); n:=strlen(s1); if n neq strlen(s2) then return 'NIL; L:if n<0 then return 'T; if strbyt(s1,n) neq strbyt(s2,n) then return 'NIL; n:=n-1; goto L; End; off syslisp; end;