Changeset 8525


Ignore:
Timestamp:
02/10/05 12:56:42 (16 years ago)
Author:
piso
Message:

loadSystemFile(): bind *WARN-ON-REDEFINITION* to NIL.

File:
1 edited

Legend:

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

    r8375 r8525  
    33 *
    44 * Copyright (C) 2002-2005 Peter Graves
    5  * $Id: Load.java,v 1.94 2005-01-19 15:59:46 piso Exp $
     5 * $Id: Load.java,v 1.95 2005-02-10 12:56:42 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    208208            }
    209209            if (in != null) {
     210                final LispThread thread = LispThread.currentThread();
     211                final Binding lastSpecialBinding = thread.lastSpecialBinding;
     212                thread.bindSpecial(_WARN_ON_REDEFINITION_, NIL);
    210213                try {
    211214                    return loadFileFromStream(pathname, truename, in, verbose, print, auto);
     
    218221                }
    219222                finally {
     223                    thread.lastSpecialBinding = lastSpecialBinding;
    220224                    try {
    221225                        in.close();
Note: See TracChangeset for help on using the changeset viewer.