File psl-1983/3-1/tests/20/mini-known-to-comp-sl.red artifact 27946b048f part of check-in d9e362f11e


% MINI-KNOWN-TO-COMP-SL.RED


Procedure Car x;
 if Pairp x then car x else NonPairError(x,'CAR);

Procedure Cdr x;
 if Pairp x then cdr x  else NonPairError(x,'CDR);

procedure CodeP x;
  CodeP x;

Procedure Pairp x;
 Pairp x;

Procedure Idp x;
 Idp x;

procedure Eq(x,y);
  eq(x,y);

procedure Null x;
 x eq 'NIL;

procedure Not x;
 x eq 'NIL;

End;


REDUCE Historical
REDUCE Sourceforge Project | Historical SVN Repository | GitHub Mirror | SourceHut Mirror | NotABug Mirror | Chisel Mirror | Chisel RSS ]