anchor.diff:  	     (setf (gethash name colors) (make-color-rgb red green blue))
   	     (pushnew (list (string-capitalize name) :value name)
   		      *colors*
  -		      :test #'equal)))
  -	  #+genera
  -	  (t
  -	   (pushnew (list "White" tv:alu-ior) *colors*)
  -	   (pushnew (list "Black" tv:alu-andca) *colors*)
  -	   (setf (gethash :white colors) tv:alu-ior)
  -	   (setf (gethash :black colors) tv:alu-andca)))))
  +		      :test #'equal))))))
   
   (defun initialize-color-system ()
     "Initialize the color screen if available."
     ;; Called by ALU-FOR-COLOR the first time an alu is needed.
  -  #-clim (declare (special color:color-screen))
  -  #+genera
  -  (when (color:color-exists-p)
  -    (or color:color-screen
  -	;; Funcalls avoid compiler complaint when color system not
  -	;; loaded at compile time.
  -	(funcall 'color:create-color-screen))
  -    (scl:send color:color-screen :standardize-color-map))
     (make-color-choices *color-specifications*))
   
   (defun alu-for-stream (stream color-name)
     "Translate a color name to an ink/alu"
     (if (color-stream-p stream)
         (alu-for-color color-name)
  -      #+clim (if (eq color-name :black) %erase %draw)
  -      #-clim (if (eq color-name :black) tv:alu-andca tv:alu-ior)))
  +      (if (eq color-name :black) %erase %draw)))
   
   (defun draw-color-swatch (stream color-name pretty-name selected-p &optional size)
     "Draw a sample of the given color at the current cursor position."
  
positive.code: 		       (string object)
  		       nil)))
  
  #+clim-2
  (defun highlight-color (continuation object stream)
    (clim:surrounding-output-with-border
     (stream)
  
negative.code:     :printer present-color
      :highlighter highlight-color))
  
  (defun present-color (object stream &key acceptably)
    (declare (ignore acceptably))
    (with-room-for-graphics (stream)
  