anchor.diff:      (dolist (x descr hash)
         (awhen (lml-get-attribute x :id)
   	    (with (h (case x.
  -				   (:namespace)
  +				   ('namespace)
   				   (t hash)))
   		  (when h
   	        (setf (href h !) x)))))))
   
   (defun alien-import-process-xml (descr)
  -  (with (d (lml-get-children descr))
  +  (let d (lml-get-children descr)
       (alien-import-print d (alien-import-descr-hash d))))
   
   (defun alien-import (header-path)
  
positive.code: (defun alien-import-get-type-desc (hash desc)
    (href hash (lml-get-attribute desc :type)))
  
  (defun alien-import-add-struct (hash desc)
    (with (struct-name (lml-get-attribute desc :name))
  	(prog1
  
negative.code: 
  (defun alien-import-print (descr hash)
    (dolist (x descr)
      (when (eq x. 'function)
  	  (with (fun-name (lml-get-attribute x :name))
  	    (unless (href *alien-imported-functions* fun-name)
  		  (format t "Function ~A ~A ("
  				  (force-string (lml-get-attribute x :name))
  				  (alien-import-get-type
  					hash
  					(href hash (lml-get-attribute x :returns))))
  		  (awhen (lml-get-children x)
  			(let idx -1
  		      (dolist (a !)
  				(1+! idx)
  		        (when (eq a. 'argument)
  			      (alien-import-print-type
  					  (alien-import-get-type-from-desc hash a)
  					  (lml-get-attribute a :name)
  					  :first (= 0 idx))))))
  		  (format t ")~%")
  		  (setf (href *alien-imported-functions* fun-name) t))))))
  
  