Secret Source

Do you guys know of any torrents or other means for obtaining interesting/rare source code, like the torrent for Symbolics Open Genera¹?

___________________________________
1. http://thepiratebay.se/torrent/3769989/Symbolics_Open_Genera_2.0_for_Alpha_-_complete_package_with_Lisp1

>>4

here's sample btw, from sin.lisp (Copyright 1982 Massachusetts Institute of Technology)


(defun checkderiv1 (expr wrt old-wrt)
(cond ((alike1 (car wrt) var)
(if (equal (cadr wrt) 1) ;Power = 1?
(if (null (cddr wrt)) ;single or partial
(if (null old-wrt)
expr ;single
`((%derivative), expr ;partial in old-wrt
,.(nreverse old-wrt)))
`((%derivative) ,expr ;Partial, return rest
,.(nreverse old-wrt)
,@(cddr wrt)))
`((%derivative) ,expr ;Higher order, reduce order
,.(nreverse old-wrt)
,(car wrt) ,(add* (cadr wrt) -1)
,@ (cddr wrt))))
((null (cddr wrt)) () ) ;Say it doesn't apply here
(t (checkderiv1 expr (cddr wrt) ;Else we check later terms
(list* (cadr wrt) (car wrt) old-wrt)))))



also, in the obituary for the guys who maintained the FOSS macsyma fork they said he was an "expert programmer".