anchor.diff:     #:load-op #:compile-op #:test-op 
      #:operate #:oos)
     
  -  #+(or openmcl digitool)               ; ??? I think this is the right thing...
  +  #+(or openmcl digitool)     ; ??? I think this is the right thing...
     (:shadow #:line #:copy-file
              #:lock-owner #:lock-name
              #:selected? #:whitespacep)
  
positive.code:    #:funcall-if
     
     #:*file-if-exists*
     #:with-new-file)
    
    ;; graham
    (:export
     #:with-gensyms
     #:allf
     #:nilf
     #:tf
     #:toggle!                       ; renamed toggle to toggle!
     #:filter-values
     #:with-array
     #:with-matrix
     #:with-struct
     #:match
     #:if-match
     
     #:most
     #:best
     #:mostn
     
     #:map0-n
     #:map1-n
     #:mapa-b
     #:map->
     #:mapcars
     
     #:fn
     #:compose
     
     #:concf)
    
    ;; files
    (:export
     #:invalid-stream-specifier-error
  
     #:pathname-samep
     #:file-to-list
     #:file-newer-than-file-p
     #:conjure-up-filename
     #:unique-file-name-from-date
     #:pretty-namestring-from-date
     #:eos-namestring-from-date
     #:short-eos-namestring-from-date
     #:rename-file-if-present
     #:uniquify-file-name
     #:remove-illegal-filename-characters
     #:shorten-filename-for-os
     #:map-files
     #:map-forms-in-file
     #:map-lines-in-file 
     #:map-lines
     #:next-line
     #:file-package
     #:touch-file
     #:ensure-filename-safe-for-os
     #:pathname-name+type
     #:physical-pathname-directory-separator
     #:delete-directory
     #:directory-name-p)
    
    ;; dates and times
    (:export
     #:day->string 
     
     #:month->string
     #:string->month
     
     #:print-date
     #:date-string 
     #:date-string-brief 
     #:print-time 
     #:print-universal-time
     #:time-string
     #:time-string-with-no-colons
     #:date-and-time-string 
     #:parse-date-and-time-string
     #:parse-date-and-time 
     #:print-brief-ut 
     #:print-ut
     #:print-time-interval 
     #:print-brief-time-interval
     #:parse-interval-or-never
     
     #:+minutes-per-hour+
     #:+seconds-per-hour+
     #:+seconds-per-minute+
  
negative.code:    #:eval-always
     #:with-atomic-execution
     #:handler-bind*
  
     #:file-newer-than-file-p
     #:with-stream-from-specifier
     #:relative-pathname
     #:directory-pathname-p
  