From 2db4ebe2068ef7fdb4357c40febc362693c70c45 Mon Sep 17 00:00:00 2001 From: Lionel Flandrin Date: Wed, 13 Apr 2011 08:25:03 +0000 Subject: [PATCH 3/3] Fix group-map-number when a group 0 exists --- group.lisp | 3 ++- 1 files changed, 2 insertions(+), 1 deletions(-) diff --git a/group.lisp b/group.lisp index 44305f2..a883bf0 100644 --- a/group.lisp +++ b/group.lisp @@ -109,7 +109,8 @@ otherwise specified." (defun group-map-number (group) (let* ((num (group-number group)) (index (1- (abs num)))) - (if (< index (length *group-number-map*)) + (if (and (>= index 0) + (< index (length *group-number-map*))) (format nil "~:[~;-~]~a" (minusp num) (elt *group-number-map* index)) num))) -- 1.7.2.5