anchor.diff:    (args :pointer))
   
   (defun format-message (code)
  +  "Use FormatMessage to convert the error code into a system-defined string."
     (with-foreign-object (buffer :char 1024)
       (let ((n (%format-message #x00001000
   			      (null-pointer)
  
positive.code: 		     (format-message (win-error-code condition))))))
  	   
  		   
  
  (defctype hkey :uint32)
  
  
negative.code: ;;;; Copyright (c) Frank James 2015 <frank.a.james@gmail.com>
  ;;;; This code is licensed under the MIT license.
  
  ;; need CFFI and CL-PPCRE for this
  
  (defpackage #:nefarious.providers.registry
    (:use #:cl #:nefarious #:cffi))
  