anchor.diff:    "One little boy and
   Two little girls, climbed up a
   Tree near the sky.
  -Four bird lander on that tree.
  +Four birds landed on that tree.
   Five eggs were layed each on one child head.
  -") ;;test-text
  +") 
   
   ;; (progn (ext:cd "/home/pascal/src/lisp/encours/") (load "ed.lisp"))
   
  -;;;; ed.lisp                          --                     --          ;;;;
  +;;;; THE END ;;;;
  
positive.code:   ;;         Writes  the  addressed  lines  to  the  standard input of
    ;;         `!command', (see the !command below).  The default  file-
    ;;         name and current address are unchanged.
    (cmd-write-or-append buffer from to arg :supersede)
    ) ;;CMD-WRITE-FILE
  
  
  (DEFUN CMD-WRITE-FILE-QUIT (BUFFER FROM TO ARG)
    (DBG (FORMAT T "CMD-WRITE-FILE-QUIT: ~%"))
    ;; (1,$)wq file
    ;;         Writes the addressed lines to file, and then  executes  a
    ;;         `q' command.
    ;;
    (cmd-write-file buffer from to arg)
    (unless (buffer-got-error buffer)
      (cmd-quit buffer from to arg))
    ) ;;CMD-WRITE-FILE-QUIT
  
  
  (defun cmd-edit-or-read (buffer arg linum)
  
negative.code:   (cmd-edit-or-read buffer arg nil)
    (unless (buffer-got-error buffer)
      (setf (buffer-modified buffer) nil)
      (format *terminal-io* "~D~%" (buffer-current-linum buffer))))
  
    
  (defun cmd-edit-file (buffer from to arg)
    (declare (ignore from to))
    (dbg (format t "CMD-EDIT-FILE: ~%"))
    ;; e file  Edits  file,  and  sets the default filename.  If file is
    ;;         not specified, then the  default filename is  used.   Any
    ;;         lines  in  the  buffer are deleted before the new file is
  