Changeset 4621
- Timestamp:
- 11/03/03 02:58:23 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/j/src/org/armedbear/lisp/Autoload.java
r4601 r4621 3 3 * 4 4 * Copyright (C) 2003 Peter Graves 5 * $Id: Autoload.java,v 1.9 7 2003-11-02 00:51:28piso Exp $5 * $Id: Autoload.java,v 1.98 2003-11-03 02:58:23 piso Exp $ 6 6 * 7 7 * This program is free software; you can redistribute it and/or … … 187 187 } 188 188 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; 189 199 } 190 200 };
Note: See TracChangeset
for help on using the changeset viewer.