anchor.diff:  (defun comment-line-p (line)
     (member (first line) (list "c" "*") :test #'string=))
   
  -
   (defun to-string (char-list)
  +" Original def:
  +   (let* ((n (length char-list))
  + 	 (s (make-string n)))
  +     (dotimes (i n)
  +       (setf (char s i) (elt char-list i)))
  +     s))  "
     (map 'string #'identity char-list))
   
  -;; Original def:
  -;;   (let* ((n (length char-list))
  -;; 	 (s (make-string n)))
  -;;     (dotimes (i n)
  -;;       (setf (char s i) (elt char-list i)))
  -;;     s))
   
   (defun tokenize (line)
     "Tokenizes a line.  Removes spaces and commas."
  
positive.code:                              (asdf:find-system
                                :org.middleangle.cl-blapack-gen))))))
  
  (defmacro fortran-dir-parsing (fortran-files-wildcard
  			       &optional (basedir *basedir*))
    '(let ((files
  	  (directory
  	   (pathname 
  	    (concatenate 'string (namestring basedir)
  			 ,fortran-files-wildcard)))))
      (mapcar (lambda (f)
  	      (multiple-value-bind (name vars ret)
  		  (parse-fortran-file f)
  		(list name vars ret)))
       files)))
  
  ;; above macro WHEN PROPERLY WRITTEN should simplify the following two
  ;; functions into something like:
  ;;
  ;;    (defun parse-blas-files (&optional (basedir *basedir*))
  ;;       (fortran-dir-parsing "BLAS/SRC/*.f" basedir))
  ;;
  ;; and 
  ;;
  ;;    (defun parse-lapack-files (&optional (basedir *basedir*))
  ;;       (fortran-dir-parsing "SRC/*.f" basedir))
  ;;
  ;; The reason is that for MATLISP, we'd like to add in other Fortran
  ;; libraries if possible.
  
  (defun parse-blas-files (&optional (basedir *basedir*))
    (let ((files
  
negative.code:     (("character*") :string)
      (("character*1") :string)
      (("character*6") :string)
      (("integer") :int32)                   ; Not clear this is right on 64 bit machines?
      (("real") :float)
      (("double" "precision") :double)
      (("complex") :complex-float)           ; :complex-float and :complex-double
      (("double" "complex") :complex-double) ; are from foreign-numeric-vector
      (("complex*16") :complex-double)
      (("logical") :logical)
      (("none") :void)))
  