Changeset 5071


Ignore:
Timestamp:
12/11/03 19:34:39 (17 years ago)
Author:
piso
Message:

HANDLER-BIND, HANDLER-CASE

File:
1 edited

Legend:

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

    r5060 r5071  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Primitives.java,v 1.522 2003-12-10 21:34:50 asimon Exp $
     5 * $Id: Primitives.java,v 1.523 2003-12-11 19:34:39 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    16391639                        throw throwable;
    16401640                }
    1641                 Condition condition = throwable.getCondition();
     1641                LispObject condition = throwable.getCondition();
    16421642                while (bindings != NIL) {
    16431643                    Cons binding = checkCons(bindings.car());
     
    16901690                        throw throwable;
    16911691                }
    1692                 Condition condition = throwable.getCondition();
     1692                LispObject condition = throwable.getCondition();
    16931693                thread.setStackDepth(depth);
    16941694                while (clauses != NIL) {
     
    17381738    // => upgraded-typespec
    17391739    private static final Primitive UPGRADED_ARRAY_ELEMENT_TYPE =
    1740         new Primitive("upgraded-array-element-type","typespec &optional environment") {
     1740        new Primitive("upgraded-array-element-type", "typespec &optional environment") {
    17411741        public LispObject execute(LispObject arg) throws ConditionThrowable
    17421742        {
     
    17541754    // array-rank array => rank
    17551755    private static final Primitive1 ARRAY_RANK =
    1756         new Primitive1("array-rank","array") {
     1756        new Primitive1("array-rank", "array") {
    17571757        public LispObject execute(LispObject arg) throws ConditionThrowable
    17581758        {
     
    17651765    // Returns a list of integers. Fill pointer (if any) is ignored.
    17661766    private static final Primitive1 ARRAY_DIMENSIONS =
    1767         new Primitive1("array-dimensions","array") {
     1767        new Primitive1("array-dimensions", "array") {
    17681768        public LispObject execute(LispObject arg) throws ConditionThrowable
    17691769        {
     
    17751775    // array-dimension array axis-number => dimension
    17761776    private static final Primitive2 ARRAY_DIMENSION =
    1777         new Primitive2("array-dimension","array axis-number") {
     1777        new Primitive2("array-dimension", "array axis-number") {
    17781778        public LispObject execute(LispObject first, LispObject second)
    17791779            throws ConditionThrowable
Note: See TracChangeset for help on using the changeset viewer.