anchor.diff:    (declare (ignore direction external-format))
     (when direction-provided-p
       (error "Can't specifiy :DIRECTION in WITH-INPUT-FILE."))
  -  `(with-open-file (,stream-name ,file-name :direction :input 
  +  `(with-open-file (,stream-name ,file-name :direction :input
                       ,@args)
        ,@body))
   
  
positive.code:   (iter (for (k v . rest) on env by #'cddr)
  	(collect k into keys)
  	(collect v into values)
  	(finally 
  	 (progv keys values
  	   ;; pass env to funcall to assist debugging
  	   (return (funcall tal-fn env))
  
negative.code: 
  
  ;; Copyright (c) 2002-2005, Edward Marco Baringer
  ;; All rights reserved.
  ;;
  ;; Redistribution and use in source and binary forms, with or without
  ;; modification, are permitted provided that the following conditions are
  ;; met:
  ;;
  ;;  - Redistributions of source code must retain the above copyright
  ;;    notice, this list of conditions and the following disclaimer.
  ;;
  ;;  - Redistributions in binary form must reproduce the above copyright
  ;;    notice, this list of conditions and the following disclaimer in the
  ;;    documentation and/or other materials provided with the distribution.
  