anchor.diff:                    *libsvm-lib-dir*))
   
   #-(and :linux :x86)
  -(progn
  -
  -  (define-foreign-library libsvm
  -    (:unix (:or "libsvm.so.2" "libsvm.so"))
  -    (:windows (:or "libsvm.dll" "svmc.dll"))
  -    (t (:default "libsvm")))
  -
  -  (use-foreign-library libsvm))
  +(define-foreign-library libsvm
  +  (:unix (:or "libsvm.so.2" "libsvm.so"))
  +  (:windows (:or "libsvm.dll" "svmc.dll"))
  +  (t (:default "libsvm")))
  +
  +#-(and :linux :x86)
  +(use-foreign-library libsvm)
   
   (define-condition libsvm-error () ())
   
  -;;; Wrapped pointers
  +;;;; Wrapped pointers
   
   (defvar *wrappers*
     #+sbcl
  
positive.code:   (let ((model (%train problem parameter)))
      ;; The models created by svm_train keep references into the
      ;; problem so it must be kept around.
      (setf (extra-references model)
            (list (cons (pointer problem) 'problem)))
      model))
  
  (defcfun ("svm_predict" predict) :double
  
negative.code:             (parameter-error problem parameter r)
              (values nil r))
          t)))
  
  ;;;; Model
  
  (defctype model :pointer)
  
  