Changeset 8162


Ignore:
Timestamp:
11/16/04 02:09:40 (18 years ago)
Author:
piso
Message:

"standard class" => Symbol.STANDARD_CLASS

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/j/src/org/armedbear/lisp/SlotClass.java

    r8087 r8162  
    33 *
    44 * Copyright (C) 2003-2004 Peter Graves
    5  * $Id: SlotClass.java,v 1.8 2004-11-03 15:39:01 piso Exp $
     5 * $Id: SlotClass.java,v 1.9 2004-11-16 02:09:40 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
    … …  
    7979            if (arg instanceof BuiltInClass)
    8080                return NIL;
    81             return signal(new TypeError(arg, "standard class"));
     81            return signal(new TypeError(arg, Symbol.STANDARD_CLASS));
    8282        }
    8383    };
    … …  
    9494                return second;
    9595            }
    96             return signal(new TypeError(first, "standard class"));
     96            return signal(new TypeError(first, Symbol.STANDARD_CLASS));
    9797        }
    9898    };
    … …  
    109109            if (arg instanceof BuiltInClass)
    110110                return NIL;
    111             return signal(new TypeError(arg, "standard class"));
     111            return signal(new TypeError(arg, Symbol.STANDARD_CLASS));
    112112        }
    113113    };
    … …  
    124124                return second;
    125125            }
    126             return signal(new TypeError(first, "standard class"));
     126            return signal(new TypeError(first, Symbol.STANDARD_CLASS));
    127127        }
    128128    };
    … …  
    139139            if (arg instanceof BuiltInClass)
    140140                return NIL;
    141             return signal(new TypeError(arg, "standard class"));
     141            return signal(new TypeError(arg, Symbol.STANDARD_CLASS));
    142142        }
    143143    };
    … …  
    154154                return second;
    155155            }
    156             return signal(new TypeError(first, "standard class"));
     156            return signal(new TypeError(first, Symbol.STANDARD_CLASS));
    157157        }
    158158    };
    … …  
    169169            if (arg instanceof BuiltInClass)
    170170                return NIL;
    171             return signal(new TypeError(arg, "standard class"));
     171            return signal(new TypeError(arg, Symbol.STANDARD_CLASS));
    172172        }
    173173    };
    … …  
    184184                return second;
    185185            }
    186             return signal(new TypeError(first, "standard class"));
     186            return signal(new TypeError(first, Symbol.STANDARD_CLASS));
    187187        }
    188188    };
Note: See TracChangeset for help on using the changeset viewer.