diff options
| -rw-r--r-- | Lisp/name-conversion.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Lisp/name-conversion.lisp b/Lisp/name-conversion.lisp index 6309962..dcff468 100644 --- a/Lisp/name-conversion.lisp +++ b/Lisp/name-conversion.lisp @@ -137,7 +137,7 @@ (defun name->canonised-lower-case (string) (cond ((name-in-canonical-case-p string) (string-downcase string)) - ((and (eq (readtable-case *readtable*) :invert) + ((and (member (readtable-case *readtable*) '(:upcase :invert)) (notany #'upper-case-p string)) (string-upcase string)) (t string))) |