anchor.diff:  (defun parse-keypath (path)
     "match the path agaisnt the regex <tree>\\<key>[:<value>]"
     (multiple-value-bind (matched matches) 
  -      (cl-ppcre:scan-to-strings "(HKLM|HKCU|HKCR|HKCC|HKUSERS)((\\\\\\w+)*):?(\\w+)?" path)
  +      (cl-ppcre:scan-to-strings "(HKLM|HKCU|HKCR|HKCC|HKUSERS)\\\\((\\w+\\\\?)*):?(\\w+)?" path)
       (when matched
         (let ((tree (aref matches 0))
   	    (key (aref matches 1))
  
positive.code:   (args :pointer))
  
  (defun format-message (code)
    (with-foreign-object (buffer :char 1024)
      (let ((n (%format-message #x00001000
  			      (null-pointer)
  
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))
  