Ignore:
Timestamp:
May 6, 2011, 12:47:14 AM (10 years ago)
Author:
Sam Hocevar
Message:

data: remove \r and trailing spaces and tabs from all Lisp sources.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • abuse/trunk/data-abuse/lisp/userfuns.lsp

    r54 r582  
    88      (set_lives first x)
    99      (set_all_lives (next_focus first) x))))
    10  
    1110
    12 (defun select_place (x place)
     11
     12(defun select_place (x place)
    1313  (- (/ x place) (* (/ x (* place 10)) 10)))
    1414
    15 (defun dig2char (x) 
     15(defun dig2char (x)
    1616  (code-char (+ x (char-code "0"))))
    1717
     
    2424    (reverse-seq name first last))
    2525)
    26 (defun forward-seq (name first last) 
    27   (if (> first last) 
    28       nil 
    29     (cons (concatenate 'string name (digstr first 4) ".pcx") 
     26(defun forward-seq (name first last)
     27  (if (> first last)
     28      nil
     29    (cons (concatenate 'string name (digstr first 4) ".pcx")
    3030          (forward-seq name (+ 1 first) last))))
    31 (defun reverse-seq (name last first) 
    32   (if (< last first) 
    33       nil 
    34     (cons (concatenate 'string name (digstr last 4) ".pcx") 
     31(defun reverse-seq (name last first)
     32  (if (< last first)
     33      nil
     34    (cons (concatenate 'string name (digstr last 4) ".pcx")
    3535          (reverse-seq name (- last 1) first))))
    3636
Note: See TracChangeset for help on using the changeset viewer.