anchor.diff:  ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
   ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
   
  -;; $Id: basic-types.lisp,v 1.6 2007-02-19 14:42:24 espen Exp $
  +;; $Id: basic-types.lisp,v 1.7 2007-06-01 06:22:05 espen Exp $
   
   (in-package "GFFI")
   
  
positive.code: (define-type-method from-alien-function ((type static) &key (ref :static))
    (if (eq ref :static)
        (from-alien-function (second (type-expand-to 'static type)) :ref ref)
      (error "Keyword arg :REF to FROM-ALIEN-FORM should be :STATIC for type ~A. It was give ~A" type ref)))
  
  (define-type-method to-alien-function ((type static) &optional copy-p)
    (if (not copy-p)
  
negative.code: (define-type-method from-alien-function ((type copy-of) &key (ref :copy))
    (if (eq ref :copy)
        (from-alien-function (second (type-expand-to 'copy-of type)) :ref ref)
      (error "Keyword arg :REF to FROM-ALIEN-FUNCTION should be :COPY for type ~A. It was give ~A" type ref)))
  
  (define-type-method to-alien-form ((type copy-of) form &optional (copy-p t))
    (if copy-p
  