anchor.diff:  	    )
   
   #+sbcl    (progn
  +            ; (setq sb-ext:*derive-function-types* t) ; test
   	    (setf (sb-ext:bytes-consed-between-gcs) 50331648)
   	    (setq sb-ext:*efficiency-note-cost-threshold* 30)
   	    (declaim (sb-ext:muffle-conditions sb-ext:compiler-note
  
positive.code: (defun set-readtable-invert ()
    (setf (readtable-case *readtable*) :invert))
  
  (push  'set-readtable-invert 
         #+allegro cl-user::*restart-actions*
         #+cmu     ext:*after-save-initializations*
  
negative.code: (format t "~%Finished loading Snark.")
  (finish-output t)
  
  #+casesensitive
  (eval-when (:compile-toplevel :load-toplevel :execute)
    (setf (readtable-case *readtable*) :invert))
  
  