anchor.diff:     #:funcall-if
      
      #:*file-if-exists*
  -   #:with-new-file)
  -  
  -  ;; graham
  -  (:export
  +   #:with-new-file
  +  
      #: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 
  +   #:physical-pathname-directory-separator
  +
      #: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+
  
positive.code:                 #:without-interrupts)
      
    (:export
     #:apply-if-exists)
  
    (:export
     #:defclass-property
     #:deprecated
     #:once-only
  
negative.code:    #:make-ui-point*
     #:process-parameters
     #:put-item-on-clipboard
     #:inspect-things
     #:prompt-for
     
     #:parse-brief-slot
     #:class-copyable-p
    
  
     #:+whitespace-characters+
     #:whitespacep
     #:string-starts-with
     #:string-ends-with
     #:string-trim-if
     #:strip-whitespace
     ))
  