Changeset 5158


Ignore:
Timestamp:
12/16/03 02:22:47 (18 years ago)
Author:
piso
Message:

SET-DISPATCH-MACRO-CHARACTER: call coerceToFunction().

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/Readtable.java

    r5156 r5158  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: Readtable.java,v 1.2 2003-12-16 00:35:00 piso Exp $
     5 * $Id: Readtable.java,v 1.3 2003-12-16 02:22:47 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    8282            // Not found.
    8383            table.add(new Entry(dispChar, subChar, function));
    84                 return T;
     84            return T;
    8585        }
    8686    }
     
    133133            char dispChar = LispCharacter.getValue(args[0]);
    134134            char subChar = LispCharacter.getValue(args[1]);
    135             LispObject function = args[2];
     135            LispObject function = coerceToFunction(args[2]);
    136136            Readtable readtable;
    137137            if (args.length == 4)
Note: See TracChangeset for help on using the changeset viewer.