anchor.diff:  
   
   
  +;;;----------------------------------------------------------------------------------------
   
   (defvar *default-label-font* "Dialog-13")
   (defvar *default-corner* 10)
  
positive.code:   (console.clear))
  
  
  
  (defclass console-stream (fundamental-character-input-stream
                            fundamental-character-output-stream)
  
negative.code: 
  ;; 3drect and round-rect are not subclasses of rect to avoid creating
  ;; a rect when we create a 3drect or round-rect.
  
  ;;;----------------------------------------------------------------------------------------
  
  (defclass 3drect (object) 
    ((raised :initarg :raised :type boolean   :reader 3drect-raisedp)))
  