anchor.diff:  (cl:in-package :ps-sys)
  +
  +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  +;;; LOAD POCKETSPHINX LIBRARY ;;;
  +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   
   (define-foreign-library libpocketsphinx
       (:unix (:or "libpocketsphinx.so.1" "libpocketsphinx.so"))
  
positive.code: 
  (defcfun "ps_nbest_hyp" :string
    (nbest ps-nbest-t)
    (out-score :pointer))
  
  (defcfun "ps_nbest_seg" ps-seg-t
    (nbest ps-nbest-t)
    (out-score :pointer))
  
negative.code: 
  (use-foreign-library libpocketsphinx)
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;; POCKETSPHINX TYPES ;;;
  ;;;;;;;;;;;;;;;;;;;;;;;;;;
  
  (defctype ps-decoder-t :pointer)
  (defctype ps-nbest-t :pointer)
  (defctype ps-seg-t :pointer)
  (defctype ps-lattice-t :pointer)
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;; POCKETSPHINX FUNCTIONS ;;;
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
  ;; DECODER ;;
  
  (defcfun "ps_args" arg-t)
  
  