anchor.diff:  
   (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
  
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: 
  (defpackage :cl-slp
    (:use :cl :cffi)
    (:nicknames :slp)
    (:export #:slp-open
  		   #:slp-close
  
  