anchor.diff:  (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-FORM should be :COPY for type ~A. It was give ~A" type 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
  
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: ;; 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.7 2007-06-01 06:22:05 espen Exp $
  
  (in-package "GFFI")
  
  