|
Last change
on this file since 44 was
44,
checked in by Sam Hocevar, 14 years ago
|
- Importing abuse-frabs 2.10.
|
|
File size:
631 bytes
|
| Line | |
|---|
| 1 | ;; Copyright 1999 Profound Corp, All Rights reserved
|
|---|
| 2 | ;; See licensing information for more details on usage rights
|
|---|
| 3 |
|
|---|
| 4 |
|
|---|
| 5 | (defun seqbmp (name first last)
|
|---|
| 6 | (if (<= first last)
|
|---|
| 7 | (forward-seqbmp name first last)
|
|---|
| 8 | (reverse-seqbmp name first last)))
|
|---|
| 9 |
|
|---|
| 10 | (defun forward-seqbmp (name first last)
|
|---|
| 11 | (if (> first last)
|
|---|
| 12 | nil
|
|---|
| 13 | (cons (concatenate 'string name (digstr first 4) ".bmp")
|
|---|
| 14 | (forward-seqbmp name (+ 1 first) last))))
|
|---|
| 15 |
|
|---|
| 16 | (defun reverse-seqbmp (name last first)
|
|---|
| 17 | (if (< last first)
|
|---|
| 18 | nil
|
|---|
| 19 | (cons (concatenate 'string name (digstr last 4) ".bmp")
|
|---|
| 20 | (reverse-seqbmp name (- last 1) first)))) |
|---|
Note: See
TracBrowser
for help on using the repository browser.
