diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/functions.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/functions.lisp b/lib/functions.lisp index 2a7f4ab..40e940a 100644 --- a/lib/functions.lisp +++ b/lib/functions.lisp @@ -22,7 +22,7 @@ (fn range (start end &optional (step 1)) (-> (fixnum fixnum &optional fixnum) list) "Make a list of numbers from START to END (exclusive). If STEP is given, then each member is STEP distance apart." - (if (<= end start) + (if (< end start) (error (format nil "~a < ~a" end start)) (loop :for i :from start :to (1- end) :by step :collect i))) |