[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[no subject]

(RUN-SCHEME (QUOTE ((LAMBDA (X . Y) (CONS Y (BLOCK (ASET (QUOTE Y) (QUOTE 
E)) (CONS Y X)))) (QUOTE A) (QUOTE B) (QUOTE C)))) 


(RUN-SCHEME '((LAMBDA (X #74514) 
		      (CONS Y (BLOCK (ASET 'Y 'E) (CONS Y X))))
	      'A
	      'B
	      'C))

sprinter loses on dotted pair!