anchor.diff:  ;;; Library General Public License for more details.
   ;;;
   ;;; You should have received a copy of the GNU Library General Public
  -;;; License along with this library; if not, write to the 
  -;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 
  +;;; License along with this library; if not, write to the
  +;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
   ;;; Boston, MA  02111-1307  USA.
   
   ;;; TODO:
  
positive.code:                    (make-translation-transformation
                      x-offset
                      y-offset))
               
               (setf (stream-cursor-position stream) (values start-x start-y))
               (letf (((slot-value stream 'baseline) baseline))
                 (loop for (x text-style string) in strings
  
negative.code: 
  ;;; XXX ? should this be defined on output-record at all?
  ;;; Probably not -- moore
  (defmethod erase-output-record ((record output-record) stream
                                  &optional (errorp t))
    (declare (ignore stream errorp))
    nil)
  
  