anchor.diff:    'system-area-pointer)
   
   (deftype-method translate-to-alien null (type-spec expr &optional copy)
  -  (declare (ignore type-spec copy))
  +  (declare (ignore type-spec expr copy))
     `(make-pointer 0))
   
   
  
positive.code: 
  (deftype-method translate-type-spec fixnum (type-spec)
    (declare (ignore type-spec))
    (signed '*))
  
  (deftype-method translate-to-alien fixnum (type-spec number &optional copy)
    (declare (ignore type-spec copy))
  
negative.code: 	   ,(if return-type-spec
  		`(let ((result
  			,(translate-from-alien return-type-spec alien-funcall)))
  		   ,@(alien-deallocators)
  		   (values result ,@(alien-values)))
  	      `(progn
  		 ,alien-funcall
  		 ,@(alien-deallocators)
  		 (values ,@(alien-values)))))))))
  
    
  
  
  ;;;; Definitons and translations of fundamental types
  
  (lisp:deftype long (&optional (min '*) (max '*)) `(integer ,min ,max))
  (lisp:deftype unsigned-long (&optional (min '*) (max '*)) `(integer ,min ,max))
  