Changeset 5003


Ignore:
Timestamp:
12/07/03 17:03:37 (17 years ago)
Author:
piso
Message:

ARGLIST, %SET-ARGLIST => arglist.java

File:
1 edited

Legend:

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

    r4941 r5003  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Primitives.java,v 1.509 2003-12-02 19:43:13 piso Exp $
     5 * $Id: Primitives.java,v 1.510 2003-12-07 17:03:37 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    42804280    };
    42814281
    4282     // ### arglist
    4283     private static final Primitive1 ARGLIST =
    4284         new Primitive1("arglist", PACKAGE_SYS, false) {
    4285         public LispObject execute(LispObject arg) throws ConditionThrowable
    4286         {
    4287             Function function = coerceToFunction(arg);
    4288             LispObject arglist = function.getArglist();
    4289             final LispObject value1, value2;
    4290             if (arglist != null) {
    4291                 value1 = arglist;
    4292                 value2 = T;
    4293             } else {
    4294                 value1 = NIL;
    4295                 value2 = NIL;
    4296             }
    4297             return LispThread.currentThread().setValues(value1, value2);
    4298         }
    4299     };
    4300 
    4301     private static final Primitive2 _SET_ARGLIST =
    4302         new Primitive2("%set-arglist", PACKAGE_SYS, false) {
    4303         public LispObject execute(LispObject first, LispObject second)
    4304             throws ConditionThrowable
    4305         {
    4306             coerceToFunction(first).setArglist(second);
    4307             return second;
    4308         }
    4309     };
    4310 
    43114282    // ### streamp
    43124283    private static final Primitive1 STREAMP = new Primitive1("streamp") {
Note: See TracChangeset for help on using the changeset viewer.