anchor.diff:    ;; XXX Warn about insecurity?  Or is any platform too dumb to have
     ;; fds, also relatively safe from race conditions through obscurity?
     ;; XXX Will unlinking the file after opening the stream work the way
  -  ;; we expect?
  +  ;; we expect? (it seems to, from testing.)
     #-(or cmu sbcl)
     (let* ((name (tmpnam (make-null-pointer 'cstring)))
   	 (stream (open (convert-from-cstring name) :direction :io
  
positive.code: 
  
  (defmacro with-temporary-file ((stream &key element-type) &body body)
    "macro WITH-TEMPORARY-FILE (stream &key element-type) &body body => stream"
    `(let ((,stream (make-temporary-file
  		   ,@(when element-type
  			   `(:element-type ,element-type)))))
      (unwind-protect
  	 (progn ,@body)
        (close ,stream :abort t))))
  
negative.code: (defun absolute-pathname (pathspec &optional (default *default-pathname-defaults*))
    "function ABSOLUTE-PATHNAME pathspec &optional default => pathname
  
  Returns an absolute pathname corresponding to pathspec by merging it
  with default, and (current-directory) if necessary."
    (if (relative-pathname-p pathspec)
        (let ((tmp (merge-pathnames 
  		  pathspec
  