Changeset 4621


Ignore:
Timestamp:
11/03/03 02:58:23 (18 years ago)
Author:
piso
Message:

SYS::AUTOLOADP

File:
1 edited

Legend:

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

    r4601 r4621  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: Autoload.java,v 1.97 2003-11-02 00:51:28 piso Exp $
     5 * $Id: Autoload.java,v 1.98 2003-11-03 02:58:23 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    187187            }
    188188            return fun;
     189        }
     190    };
     191
     192    private static final Primitive1 AUTOLOADP =
     193        new Primitive1("autoloadp", PACKAGE_SYS, false)
     194    {
     195        public LispObject execute(LispObject arg) throws ConditionThrowable
     196        {
     197            Symbol symbol = checkSymbol(arg);
     198            return (symbol.getSymbolFunction() instanceof Autoload) ? T : NIL;
    189199        }
    190200    };
Note: See TracChangeset for help on using the changeset viewer.