anchor.diff:  (defun seed-random-state (seed) ; seed is a integer
     (declare (ignorable seed))
     #+sbcl (sb-ext:seed-random-state seed)
  -  #+ccl (flet ((get-bits (&aux bits)
  -                 (multiple-value-setq (seed bits) (floor seed ccl::mrg31k3p-limit))
  -                 bits))
  -          (multiple-value-bind (x0 x1 x2 x3 x4 x5)
  -              (apply 'values (loop :repeat 6 :collect (get-bits)))
  -            (when (zerop (logior x0 x1 x2))
  -              (setf x0 (logior (get-bits) 1)))
  -            (when (zerop (logior x3 x4 x5))
  -              (setf x3 (logior (get-bits) 1)))
  -            (ccl::initialize-mrg31k3p-state x0 x1 x2 x3 x4 x5)))
  -  #-(or sbcl ccl) (make-random-state *initial-random-state*))
  +  #+clozure
  +  (flet ((get-bits (&aux bits)
  +           (multiple-value-setq (seed bits) (floor seed ccl::mrg31k3p-limit))
  +           bits))
  +    (multiple-value-bind (x0 x1 x2 x3 x4 x5)
  +        (apply 'values (loop :repeat 6 :collect (get-bits)))
  +      (when (zerop (logior x0 x1 x2))
  +        (setf x0 (logior (get-bits) 1)))
  +      (when (zerop (logior x3 x4 x5))
  +        (setf x3 (logior (get-bits) 1)))
  +      (ccl::initialize-mrg31k3p-state x0 x1 x2 x3 x4 x5)))
  +  #-(or sbcl clozure) (make-random-state *initial-random-state*))
   
   (defun call-with-determinism (seed thunk)
     ;;; The seed is an arbitrary object from (a hash of) which we initialize
  
positive.code:   #+cmu (setf ext:*gc-verbose* nil)
    #+clisp (setf custom:*source-file-types* nil custom:*compiled-file-types* nil)
    #+(and ecl (not ecl-bytecmp)) (let ((*load-verbose* nil)) (require :cmp))
    #+sbcl (require :sb-posix)
    (let ((unix #+(or unix cygwin darwin) t)
          (windows #+(and (or win32 windows mswindows mingw32) (not cygwin)) t))
      (cond
        ((and unix windows) (error "Your operating system is simultaneously Unix and Windows?~%~
  
negative.code:   (apply 'format stream format args)
    (finish-output stream))
  
  ;;; Setting up the environment from shell variables
  (defun getenv (x)
    "Query the libc runtime environment. See getenv(3)."
    (declare (ignorable x))
  