anchor.diff:  	  (funcall callback (make-condition 'laap:os-error :errno errno) nil)))))
   
   (defun readlink (callback &key pathname)
  +  "Readlink pathname."
     (laap:with-blocking-thread readlink
       (cffi:with-foreign-object (sb '(:struct stat))
         (cffi:with-foreign-string (c-pathname pathname)
  
positive.code: 	  (funcall callback (make-condition 'laap:os-error :errno errno) nil)))))
  
  (defun unlink (callback &key pathname)
    (laap:with-blocking-thread unlink
      (cffi:with-foreign-string (c-pathname pathname)
        (if (= (c-unlink c-pathname) 0)
  
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))
  