anchor.diff:  
   (defpackage :cl-slp
     (:use :cl :cffi)
  +  (:nicknames :slp)
     (:export #:slp-open
   		   #:slp-close
   
  
positive.code: 
  		   ;; macros for defining callbacks
  		   ;; users shouldn't need these, don't export?
  		   #:define-server-type-callback
  		   #:define-server-url-callback
  		   #:define-attr-callback
  		   #:define-register-callback
  
  		   ))
  
  
negative.code: 
  (defun get-handle ()
    "Get the handle currently in use by cl-slp"
    (unless *slp-handle*
      (format *standard-output* "WARNING: opening a handle to OpenSLP~%")
      (slp-open))
  
    (if *slp-handle*
        (mem-ref *slp-handle* 'slp-handle)
        (error 'slp-error
  