anchor.diff:                                                    (*print-right-margin* 80))
                                                 (read-from-string ligne)))))
                        (error (err)
  -                       (format t "~%ERREUR: ~A~%" err)
  -                       (setf results nil))))))
  +                            (format t "~%ERREUR: ~A~%" err)
  +                            (setf results nil))))))
       (io-format *task* "~%~A~%~@[=> ~{~S~%~^   ~}~]" output results)))
   
   #+(and lse-unix (or lse-allow-lisp debugging) (not lse-server))
  
positive.code:   (:method ((command command) (group symbol))
      (let ((the-group  (command-group-named group)))
        (if the-group
            (add-command-to-group command the-group)
            (error "There's no command group named ~S" group))))
    (:method ((command command) (group command-group))
      (let* ((duplicate (find-command command group)))
        (when (and duplicate
  
negative.code:     :for end = (min (+ start size) len)
      :while (< start len)
      :do (loop :while (< size (string-size-in-octets string :start start :end end :encoding :utf-8))
            :do (decf end))
      :collect (subseq string start end)
      :do (setf start end)))
  
  