anchor.diff:                                                  :until (char= (aref chunk (1- (length chunk))) *nul*))
                                              (lse-data-file-close file))
                                            ""))))
  +            (io-format *task* "~2&~A~2&" source)
               (with-input-from-string (stream source)
                 (dolist (line (compile-lse-stream stream))
                   ;; ENCODER merges the lines.
  
positive.code:      (make-command-group
        :name ',name
        :supergroups ',supergroups
        :commands (list ,@commands))))
  
  
  (defmethod find-command (command (group command-group))
  
negative.code: 
  
    #+developing
    (defcommand "LD DEASSEMBLER A PARTIR DE "     deux-numeros-optionels (from to)
      "Commande de deboguage: Désassemble les lignes de programme."
      (desassembler-a-partir-de from to))
  
    #+developing
    (defcommand "LP DEASSEMBLER/PERFORER A PARTIR DE "  deux-numeros-optionels (from to)
      "Commande de deboguage: Désassemble les lignes de programme."
      (io-start-tape-puncher *task*)
      (unwind-protect (desassembler-a-partir-de from to)
  