Changeset 10349


Ignore:
Timestamp:
11/04/05 13:08:52 (16 years ago)
Author:
piso
Message:

COPY-STRUCTURE: use signalTypeError().

File:
1 edited

Legend:

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

    r10210 r10349  
    33 *
    44 * Copyright (C) 2003-2005 Peter Graves
    5  * $Id: StructureObject.java,v 1.55 2005-10-23 18:44:50 piso Exp $
     5 * $Id: StructureObject.java,v 1.56 2005-11-04 13:08:52 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    298298    };
    299299
    300     // ### copy-structure
    301     // copy-structure structure => copy
     300    // ### copy-structure structure => copy
    302301    private static final Primitive COPY_STRUCTURE =
    303         new Primitive("copy-structure", "structure")
     302        new Primitive(Symbol.COPY_STRUCTURE, "structure")
    304303    {
    305304        public LispObject execute(LispObject arg) throws ConditionThrowable
     
    309308            }
    310309            catch (ClassCastException e) {
    311                 return signal(new TypeError(arg, "STRUCTURE-OBJECT"));
     310                return signalTypeError(arg, Symbol.STRUCTURE_OBJECT);
    312311            }
    313312        }
Note: See TracChangeset for help on using the changeset viewer.