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

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

240<br />

3.20 Polynomial Manipulation<br />

3.20.1 The Program<br />

;;; FRPOLY -- Benchmark from Berkeley based on polynomial<br />

;;; arithmetic. Originally writen in Franz <strong>Lisp</strong> by Richard<br />

;;; Fateman. PDIFFER1 appears in the code but is not defined;<br />

;;; is not called for in this test, however.<br />

(defvar ans)<br />

(defvar coef)<br />

(defvar f)<br />

(defvar inc)<br />

(defvar i)<br />

(defvar qq)<br />

(defvar ss)<br />

(defvar v)<br />

(defvar *x*)<br />

(defvar *alpha*)<br />

(defvar *a*)<br />

(defvar *b*)<br />

(defvar *chk)<br />

(defvar *l)<br />

(defvar *p)<br />

(defvar q*)<br />

(defvar u*)<br />

(defvar *var)<br />

(defvar *y*)<br />

(defvar r)<br />

(defvar r2)<br />

(defvar r3)<br />

(defvar start)<br />

(defvar res1)<br />

(defvar res2)<br />

(defvar res3)

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

Saved successfully!

Ooh no, something went wrong!