Changeset 10359


Ignore:
Timestamp:
11/04/05 20:51:03 (16 years ago)
Author:
piso
Message:

SYS:CLOSURE-ENVIRONMENT is obsolete.

File:
1 edited

Legend:

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

    r10102 r10359  
    33 *
    44 * Copyright (C) 2002-2005 Peter Graves
    5  * $Id: Closure.java,v 1.108 2005-10-15 15:41:00 piso Exp $
     5 * $Id: Closure.java,v 1.109 2005-11-04 20:51:03 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    11521152    }
    11531153
    1154     // ### closure-environment closure => environment
    1155     private static final Primitive CLOSURE_ENVIRONMENT =
    1156         new Primitive("closure-environment", PACKAGE_SYS, true, "closure")
    1157     {
    1158         public LispObject execute(LispObject arg) throws ConditionThrowable
    1159         {
    1160             if (arg instanceof Closure) {
    1161                 Closure closure = (Closure) arg;
    1162                 if (closure.environment != null)
    1163                     return closure.environment;
    1164                 return NIL;
    1165             }
    1166             return signal(new TypeError(arg, "closure"));
    1167         }
    1168     };
    1169 
    11701154    private static class Parameter
    11711155    {
Note: See TracChangeset for help on using the changeset viewer.