Changeset 5855

Timestamp:

Jan 31, 2007, 9:45:45 PM (18 years ago)

Author:

Gary Byers

Message:

UNESCAPE-FOREIGN-NAME: strings with no angle brackets are returned verbatim,
not downcased.

File:

• trunk/ccl/lib/db-io.lisp (modified) (1 diff)

trunk/ccl/lib/db-io.lisp

@@ -1435 +1435 @@
 
 (defun unescape-foreign-name (key)
-  (let* ((string (string key))
+  (let* ((string (if (typep key 'symbol)
+                   (string-downcase key)
+                   (string key)))
          (nbrackets (count #\< string)))
     (declare (fixnum nbrackets))
     (if (zerop nbrackets)
-      (string-downcase string)
+      string
       (let* ((len (length string))
              (out (make-string (- len (* 2 nbrackets))))