Changeset 10128


Ignore:
Timestamp:
10/17/05 03:47:58 (16 years ago)
Author:
piso
Message:

MULTIPLE-VALUE-BIND: handle free special declarations correctly.

File:
1 edited

Legend:

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

    r10124 r10128  
    33 *
    44 * Copyright (C) 2002-2005 Peter Graves
    5  * $Id: Primitives.java,v 1.830 2005-10-16 11:54:44 piso Exp $
     5 * $Id: Primitives.java,v 1.831 2005-10-17 03:47:58 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    35313531                ++i;
    35323532            }
     3533            // Make sure free special declarations are visible in the body.
     3534            // "The scope of free declarations specifically does not include
     3535            // initialization forms for bindings established by the form
     3536            // containing the declarations." (3.3.4)
     3537            while (specials != NIL) {
     3538                Symbol symbol = (Symbol) specials.car();
     3539                ext.declareSpecial(symbol);
     3540                specials = specials.cdr();
     3541            }
    35333542            thread._values = null;
    35343543            LispObject result = NIL;
Note: See TracChangeset for help on using the changeset viewer.