 ;;           :foreground nil
 ;;           :data
 ;;           (loop
-;;              with lines = (mapcar 
+;;              with lines = (mapcar
 ;;                            (lambda (line)
 ;;                              (loop
 ;;                                 with vec = (make-bool-vector (length line) nil)
 ;;                                 for bit in (mapcar
-;;                                             (lambda (char) (STRING/= char ".")) 
+;;                                             (lambda (char) (STRING/= char "."))
 ;;                                             (split-string line ""))
 ;;                                 for i from 0 below (length vec)
 ;;                                 do (setf (aref vec i) bit)

;;;;SYSTEM:             POSIX
;;;;USER-INTERFACE:     NONE
;;;;DESCRIPTION
;;;;    
;;;;    L.S.E. editing support package
;;;;    
;;;;    A major mode for editing L.S.E. code.  It provides convenient
;;;;    abbrevs for L.S.E. keywords, knows about the standard layout
;;;;    rules, and supports a native compile command.

         ;; strings
         ("\\('[^'\n]*'\\)"
          (1 font-lock-string-face)))

       (let ((lse-keywords
              '("AFFICHER" "ALLER" "ALORS" "CHAINE" "CHARGER" "DEBUT"
                "EN" "ET" "EXECUTER" "FAIRE" "FIN" "GARER"
                "JUSQUA" "LIBERER" "LIRE" "LOCAL" "NON" "OU" "PAS"
                "PAUSE" "POUR" "PROCEDURE" "QUE" "RESULTAT" "RETOUR"
                "SI" "SINON" "SUPPRIMER" "TABLEAU" "TANT" "TERMINER" ))
             (lse-builtins
              '("ENT" "RAC" "ABS" "EXP" "LGN" "SIN" "COS" "ATG" "ALE"
