anchor.diff:  	    (push doc/arg docs)
   	  (progn
   	    (destructuring-bind (expr type &optional (style :in)) doc/arg
  -	      (unless (member style '(:in :out))
  +	      (unless (member style '(:in :out :in-out))
   		(error "Bogus argument style ~S in ~S." style doc/arg))
  -	      (when (and (not supplied-lambda-list) (namep expr) (eq style :in))
  +	      (when (and
  +		     (not supplied-lambda-list)
  +		     (namep expr) (member style '(:in :in-out)))
   		(push expr lambda-list))
   	      (push
   	       (list (if (namep expr) expr (gensym)) expr type style) args)))))
  
positive.code: 	(let ((declaration (translate-type-spec type-spec))
  	      (deallocation (cleanup-alien type-spec expr)))
  	  (cond
  	   ((eq style :out)
  	    (alien-types `(* ,declaration))
  	    (alien-parameters `(addr ,var))
  	    (alien-bindings `(,var ,declaration))
  	    (alien-values (translate-from-alien type-spec var)))
  	  (deallocation
  	   (alien-types declaration)
  
negative.code: ;; License along with this library; if not, write to the Free Software
  ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  
  ;; $Id: gforeign.lisp,v 1.2 2000-08-16 18:25:30 espen Exp $
  
  (in-package "GLIB")
  
  