Changeset 14787


Ignore:
Timestamp:
06/12/15 09:18:37 (6 years ago)
Author:
Mark Evenson
Message:

Add character name for non-breaking space

Use a human readable name for character 160, #\No-break_space, which
is used in sbcl, ccl and clisp, and permits spinneret to load.

Thanks to Javier Olaechea.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/LispCharacter.java

    r14360 r14787  
    267267            sb.append("Rubout");
    268268            break;
     269          case 160:
     270            sb.append("No-break_space");
     271            break;
    269272    default:
    270273      if (name!=null)
     
    581584    if (lower.equals("rubout") || lower.equals("del") || lower.equals("delete"))
    582585      return 127;
     586    if (lower.equals("no-break_space"))
     587      return 160;
    583588    if (lower.startsWith("u")) {
    584589      int length = lower.length();
     
    633638      case 127:
    634639        return "Rubout";
     640      case 160:
     641        return "No-break_space";
    635642      }
    636643
Note: See TracChangeset for help on using the changeset viewer.