Changeset 589 for abuse/trunk/data/lisp/userfuns.lspTweet

Timestamp:

May 7, 2011, 4:06:03 PM (12 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:

• abuse/trunk/data/lisp/userfuns.lsp (modified) (1 diff)

abuse/trunk/data/lisp/userfuns.lsp

@@ -16 +16 @@
   (code-char (+ x (char-code "0"))))
 
-;; this creates a list of dpaint numbered antimation from a base name
-;; i.e. (seq "hi" 2 5)  -> '("hi0002.pcx" "hi0003.pcx" "hi0004.pcx" "hi0005.pcx")
+;; this creates a list of dpaint numbered antimation from a base name, ie:
+;;   (seq "hi" 2 5)  -> '("hi0002.pcx" "hi0003.pcx" "hi0004.pcx" "hi0005.pcx")
 ;; will take into acount reverse sequences
+;; XXX: Mac Abuse inlined calls to this function
 (defun seq (name first last)
   (if (<= first last)
       (forward-seq name first last)
-    (reverse-seq name first last))
-)
+    (reverse-seq name first last)))
+
 (defun forward-seq (name first last)
   (if (> first last)