COMMENT ⊗   VALID 00002 PAGES 
RECORD PAGE   DESCRIPTION
 00001 00001
 00002 00002	BEGIN "RRBUG"
 00003 ENDMK
⊗;
BEGIN "RRBUG"
REQUIRE "ABBREV.SAI[S,RHT]" SOURCE_FILE;
DEFINE RPTR="RECORD_POINTER";
INTERNAL RECORD_CLASS CELL(RPTR (ANY_CLASS) CAR,CDR);
INTERNAL INTEGER SIMPLE PROCEDURE RECTYPE(RPTR (ANY_CLASS) R);
	START_CODE
	SKIPE	1,R;
	HRRZ	1,(1);
	END;


INTERNAL RPTR(ANY_CLASS) PROCEDURE LLOP(REFERENCE RPTR(CELL) C);
	BEGIN
	RPTR(ANY_CLASS) V;
	IF RECTYPE(C)≠LOCATION(CELL) THEN 
		BEGIN
		USERERR(1,1,"LLOP CALLED WITH NON-CELL");
		RETURN(NULL_RECORD);
		END;
	V←CELL:CAR[C];
	C←CELL:CDR[C];
	RETURN(V);
	END;

END "RRBUG"