anchor.diff:       do (setf (cffi:mem-aref c-buffer :char i) (elt lisp-buffer (+ offset i)))))
   
   (defun rename (callback &key oldpath newpath)
  +  "Rename oldpath to newpath."
     (laap:with-blocking-thread rename
       (cffi:with-foreign-strings ((c-oldpath oldpath)
   				(c-newpath newpath))
  
positive.code: 	  (funcall callback (make-condition 'laap:os-error :errno errno) nil)))))
  
  (defun readlink (callback &key pathname)
    (laap:with-blocking-thread readlink
      (cffi:with-foreign-object (sb '(:struct stat))
        (cffi:with-foreign-string (c-pathname pathname)
  
negative.code: 	  (funcall callback (make-condition 'laap:os-error :errno errno) nil)))))
  
  (defun symlink (callback &key target linkpath)
    "Make a symbolic link at linkpath pointing to target."
    (laap:with-blocking-thread symlink
      (cffi:with-foreign-strings ((c-target target)
  				(c-linkpath linkpath))
  