23.03.2013 Views

Performance and Evaluation of Lisp Systems - Dreamsongs

Performance and Evaluation of Lisp Systems - Dreamsongs

Performance and Evaluation of Lisp Systems - Dreamsongs

SHOW MORE
SHOW LESS

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

§ 3.2 Stak 95<br />

(DEFINEQ<br />

(TAK<br />

(LAMBDA (X Y Z)<br />

(DECLARE (SPECVARS X Y Z))<br />

(STAK)))<br />

(STAK<br />

(LAMBDA NIL<br />

(DECLARE (SPECVARS . T))<br />

(COND<br />

((NOT (ILESSP Y X))<br />

Z)<br />

(T (PROG ((X (PROG ((X (SUB1 X))<br />

(Y Y)<br />

(Z Z))<br />

(RETURN (STAK))))<br />

(Y (PROG ((X (SUB1 Y))<br />

(Y Z)<br />

(Z X))<br />

(RETURN (STAK))))<br />

(Z (PROG ((X (SUB1 Z))<br />

(Y X)<br />

(Z Y))<br />

(RETURN (STAK)))))<br />

(RETURN (STAK))))))))<br />

(DECLARE: DOEVAL@COMPILE DONTCOPY<br />

(SPECVARS X Y Z))

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!