anchor.diff:  			,header-path)
   		  '(("PATH" . "/sbin:/bin:/usr/sbin:/usr/bin:/usr/games:/usr/local/sbin:/usr/local/bin:/usr/local/X11R6/bin")))
     (format t "Reading metadata...~%")
  -  (with (descr (xml2lml-file *alien-xml-tmp*))
  +  (let descr (xml2lml-file *alien-xml-tmp*)
     	(format t "Building wrapper...~%")
   	(alien-import-process-xml descr)
       (unix-sh-rm *alien-xml-tmp*)))
  
positive.code:   	  (unless (href *alien-structs* struct-name)
    	    (setf (href *alien-structs* struct-name) t)
  	    (format t "[")
  		(dolist (x (split #\ (trim #\ (lml-get-attribute desc :members))))
  		  (with (field (href hash x))
  			(if (eq :field field.)
  		        (format t " ~A \"~A\""
  					    (alien-import-get-type-from-desc hash field)
  					    (lml-get-attribute field :name))
  			    (unless (eq :constructor field.)
  				    (and (print 'XXX)
  				         (print field))))))
  	    (format t "]")))))
  
  (defun alien-import-get-type (hash tp)
    (case tp.
      (:typedef	; Transcend typedefs.
  	   (alien-import-get-type-from-desc hash tp))
      (:pointertype
         (string-concat (alien-import-get-type-from-desc hash tp) " *"))
      (:struct
  	   (alien-import-add-struct hash tp)
         (string-concat "struct " (lml-get-attribute tp :name)))
      (:arraytype
         (format nil " ~A[~A]"
                 (alien-import-get-type-from-desc hash tp)
                 (1+ (string-integer (lml-get-attribute tp :max)))))
  	(t (aif (lml-get-attribute tp :name)
         		!
  			(if (eq :CVQUALIFIEDTYPE tp.)
  	   		    (alien-import-get-type-from-desc hash tp)
  			    (and (print tp)
  				     "???"))))))
  
  (defun alien-import-get-type-from-desc (hash a)
    (when a	; XXX
  
negative.code: (defun alien-import-get-type-desc (hash desc)
    (href hash (lml-get-attribute desc :type)))
  
  (defun alien-import-print-type (data-type name &key :first t)
    (unless first
  	(format t ", "))
    (format t "~A" (force-string data-type))
    (awhen name
      (format t " ~A" (force-string !))))
  
  (defun alien-import-add-struct (hash desc)
    (with (struct-name (lml-get-attribute desc :name))
  	(prog1
  