|
|
1.1 root 1: (def mystify
2: (lambda (x) (cond (x (scons (car x) (mystify (cdr x))))
3: (t nil]
4:
5: (def listify
6: (lambda (x) (cond (x (cons (car x) (listify (cdr x))))
7: (t nil]
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.