anchor.diff:  
   
   (defmacro with-temporary-file ((stream &key element-type) &body body)
  -  "macro WITH-TEMPORARY-FILE (stream &key element-type) &body body => stream"
  +  "macro WITH-TEMPORARY-FILE (stream &key element-type) &body body => stream
  +
  +Within the lexical scope of the body, stream is connected to a
  +temporary file as created by MAKE-TEMPORARY-FILE.  The file is closed
  +automatically once BODY exits."  
     `(let ((,stream (make-temporary-file
  -		   ,@(when element-type
  -			   `(:element-type ,element-type)))))
  +		   ,@(when element-type `(:element-type ,element-type)))))
       (unwind-protect
   	 (progn ,@body)
         (close ,stream :abort t))))
  
positive.code:   ;; 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?
    #-(or cmu sbcl)
    (let* ((name (tmpnam (make-null-pointer 'cstring)))
  	 (stream (open (convert-from-cstring name) :direction :io
  
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
  