anchor.diff:  (deftype-method translate-to-alien enum (type-spec expr &optional copy)
     (declare (ignore copy))
     (let ((args (cdr (type-expand-to 'enum type-spec))))
  -    `(let ((expr ,expr))
  -       (if (integerp expr)
  -	   expr
  -	 (ecase expr
  -	   ,@(map-mappings args :enum-int))))))
  +    `(ecase ,expr
  +       ,@(map-mappings args :enum-int))))
   
   (deftype-method translate-from-alien enum (type-spec expr &optional alloc)
     (declare (ignore alloc))
  
positive.code:      (unless (null-pointer-p sap)
         (prog1
  	   (c-call::%naturalize-c-string sap)
  	 ,(when (eq alloc :copy) `(deallocate-memory ,sap))))))
  
  (deftype-method cleanup-alien string (type-spec sap &optional copied)
    (declare (ignore type-spec))
  
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.5 2000-10-01 17:19:11 espen Exp $
  
  (in-package "GLIB")
  
  