#!/bin/sh
# commonlisp-scheme -- translate Common LISP code to scheme
#
# BUGS: doesn't handle: atom, function, t (except in case statements), 
#
# AUTHOR: Gary T. Leavens

sed -e 's/(defun \([^ 	][^ 	]*\) (\([^)]*\))/(define (\1 \2)/
s/(null /(null? /g
s/(eq /(eq? /g
s/(equal /(equal? /g
s/(funcall /(/g
s/(t /(else /
s/ nil / '\''() /g
s/(symbolp /(symbol? /g
s/(consp /(pair? /g
s/(zerop /(zero? /g
s/(rplaca /(set-car! /g
s/(rplacd /(set-cdr! /g
s/(mapcar /(map /g
s/#'\''//g
s/(set '\''/(set! /g
s/(setq /(set! /g'