In article <rmWpE.37569$Dc2....@fx18.am4>, Melzzzzz <
Melz...@zzzzz.com>
wrote:
ADD 1 TO COBOL I think you mean.
DATA DIVISION.
OBJECT SECTION.
OD LISP.
01 AREGISTER LISP.
01 DREGISTER LISP.
METHOD CAR. RETURN AREGISTER. END METHOD.
METHOD CAR. RETURN DREGISTER. END METHOD.
METHOD CONS WITH OTHER LISP.
LOCAL CELL LISP.
ASSIGN NEW LISP TO CELL.
ASSIGN SELF TO AREGISTER OF CELL.
ASSIGN OTHER TO DREGISTER OF CELL.
RETURN CELL.
END METHOD.
METHOD EQ WITH OTHER LISP.
RETURN ADDRESS OF SELF EQUALS ADDRESS OF OTHER.
END METHOD.
METHOD NULLP. RETURN ADDRESS OF SELF EQUALS NIL. END METHOD.
METHOD APPEND WITH OTHER LISP.
IF SEND NULLP TO SELF THEN RETURN OTHER.
RETURN SEND CONS
TO (SEND CAR TO SELF)
WITH (SEND APPEND TO (SEND CDR TO SELF) WITH OTHER).
END METHOD.
METHOD REVERSE.
IF NULLP SEND TO SELF THEN RETURN SELF.
RETURN SEND CONS TO (SEND APPEND
TO (SEND REVERSE TO CDR OF SELF)
WITH (SEND CONS TO (SEND CAR TO SELF) WITH NIL).
END METHOD.
--
:-<> Siri Seal of Disavowal #000-001. Disavowed. Denied. Deleted. @
'I desire mercy, not sacrifice.' /|\
The first law of discordiamism: The more energy This post / \
to make order is nore energy made into entropy. insults Islam. Mohammed