anchor.diff:  	(setf (gethash 'car *func-table*) #'car)
   	(setf (gethash 'cdr *func-table*) #'cdr)
   	(setf (gethash 'cons *func-table*) #'cons)
  +	(setf (gethash 'define-syntax *func-table*) #'define-syntax)
   	(setf (gethash 'and *func-table*) #'scheme-and)
   	(setf (gethash 'or *func-table*) #'scheme-or)
   	(setf (gethash 'not *func-table*) #'scheme-not))
  
positive.code: 		nil
  		t))
  
  
negative.code: 										((equal 'quote (car expr)) (quote-eval expr))
  										((equal 'begin (car expr)) (begin-eval expr))
  										((equal 'lambda (car expr)) (lambda-eval expr))
  										((equal t (macro-p expr)) (macro-expand expr))
  										(t ;; must be a built in function 
  											(multiple-value-setq (op flag) (get-function (car expr)))
  											(if (eql flag t)
  