anchor.diff:  
   (eval-when (:compile-toplevel :load-toplevel :execute)
     (import
  +   #+abcl
  +   '()
      #+allegro 
      '(sys:with-timeout)
      #+clisp
  
positive.code: ;;; ===========================================================================
  ;;;  Features & warnings
  
  #+(or (and clisp (not mt))
        cormanlisp
        (and cmu (not mp)) 
        (and ecl (not threads))
  
negative.code: ;;;; -*- Mode:Common-Lisp; Package:PORTABLE-THREADS; Syntax:common-lisp -*-
  ;;;; *-* File: /usr/local/gbbopen/source/tools/portable-threads.lisp *-*
  ;;;; *-* Edited-By: cork *-*
  ;;;; *-* Last-Edit: Thu Jul 29 16:50:15 2010 *-*
  ;;;; *-* Machine: cyclone.cs.umass.edu *-*
  
  ;;;; **************************************************************************
  