anchor.diff:  (defun terpri2 (str) (terpri str) (terpri str))
   
   (defun generate-bindings-file (filename package-name nickname bindings
  -			       &optional(outdir *outdir*))
  +			       &optional (outdir *outdir*))
     (with-open-file (f (make-pathname :name filename 
   				    :type "lisp" 
   				    :defaults outdir)
  
positive.code:                              (asdf:find-system
                                :org.middleangle.cl-blapack-gen))))))
  
  (defun parse-blas-files (&optional (basedir *basedir*))
    (let ((files
  	 (directory
  	  (pathname 
  	   (concatenate 'string (namestring basedir) "BLAS/SRC/*.f")))))
      (mapcar (lambda (f)
  	      (multiple-value-bind (name vars ret)
  		  (parse-fortran-file f)
  
negative.code:   (concatenate 'string name "_"))
  
  (defun safe-string (string)
    "Use of T as an argument is a proble -- in particular, there are
  issues with CFFI when using T as a function arg vs. the CL value."
    (if (string= string "T") "TT" string))
  
  (defun generate-cffi-interface (parsed-representation)
  