Ignore:
Timestamp:
May 7, 2011, 4:06:03 PM (10 years ago)
Author:
Sam Hocevar
Message:

data: remove exact duplicate Lisp files, merge all main space Lisp files,
and move most frabs addons to the main data directory.

File:
1 edited

Legend:

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

    r588 r589  
    1616  (code-char (+ x (char-code "0"))))
    1717
    18 ;; this creates a list of dpaint numbered antimation from a base name
    19 ;; i.e. (seq "hi" 2 5)  -> '("hi0002.pcx" "hi0003.pcx" "hi0004.pcx" "hi0005.pcx")
     18;; this creates a list of dpaint numbered antimation from a base name, ie:
     19;;   (seq "hi" 2 5)  -> '("hi0002.pcx" "hi0003.pcx" "hi0004.pcx" "hi0005.pcx")
    2020;; will take into acount reverse sequences
     21;; XXX: Mac Abuse inlined calls to this function
    2122(defun seq (name first last)
    2223  (if (<= first last)
    2324      (forward-seq name first last)
    24     (reverse-seq name first last))
    25 )
     25    (reverse-seq name first last)))
     26
    2627(defun forward-seq (name first last)
    2728  (if (> first last)
Note: See TracChangeset for help on using the changeset viewer.