anchor.diff:  (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
  
positive.code: 			,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*))
    	(format t "Building wrapper...~%")
  	(alien-import-process-xml descr)
      (unix-sh-rm *alien-xml-tmp*)))
  
negative.code:     (dolist (x descr hash)
        (awhen (lml-get-attribute x :id)
  	    (with (h (case x.
  				   ('namespace)
  				   (t hash)))
  		  (when h
  	        (setf (href h !) x)))))))
  
  (defun alien-import-process-xml (descr)
    (let d (lml-get-children descr)
      (alien-import-print d (alien-import-descr-hash d))))
  
  (defun alien-import (header-path)
  