anchor.diff:    (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)
  
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: (defun terpri2 (str) (terpri str) (terpri str))
  
  (defun generate-bindings-file (filename package-name nickname bindings
  			       &optional (outdir *outdir*))
    (with-open-file (f (make-pathname :name filename 
  				    :type "lisp" 
  				    :defaults outdir)
  