anchor.diff:    (name :pointer))
   
   (defun register-window-message (name)
  -  "Acquire an unused window message ID." 
  +  "Acquire an unused window message ID."
  +  (declare (type string name))
     (with-wide-string (s name)
       (let ((r (%register-window-message s)))
         (if (zerop r)
  
positive.code: 
      (when brush-hatch
        (setf (foreign-slot-value lb '(:struct logbrush) 'hatch)
             (make-pointer brush-hatch)))
  
      (with-foreign-object (stlist :uint32 16)
        (do ((i 0 (1+ i))
  
negative.code: 
  (defun setup-openfilename (ofn custom-filter-buffer file-name fstr
  			   &key hwnd instance filters custom-filter file
  			     filter-index initial-dir title flags)
    (when filters
      (lisp-string-to-foreign (with-output-to-string (s)
  			      (dolist (filter filters)
  