Changeset 4345
- Timestamp:
- 10/13/03 13:10:03 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/j/src/org/armedbear/lisp/Primitives.java
r4340 r4345 3 3 * 4 4 * Copyright (C) 2002-2003 Peter Graves 5 * $Id: Primitives.java,v 1.47 2 2003-10-13 11:40:12piso Exp $5 * $Id: Primitives.java,v 1.473 2003-10-13 13:10:03 piso Exp $ 6 6 * 7 7 * This program is free software; you can redistribute it and/or … … 2087 2087 else 2088 2088 fun = arg; 2089 if (fun instanceof Function )2089 if (fun instanceof Function || fun instanceof GenericFunction) 2090 2090 return funcall0(fun, LispThread.currentThread()); 2091 2091 throw new ConditionThrowable(new UndefinedFunction(arg)); … … 2099 2099 else 2100 2100 fun = first; 2101 if (fun instanceof Function )2101 if (fun instanceof Function || fun instanceof GenericFunction) 2102 2102 return funcall1(fun, second, LispThread.currentThread()); 2103 2103 throw new ConditionThrowable(new UndefinedFunction(first)); … … 2112 2112 else 2113 2113 fun = first; 2114 if (fun instanceof Function )2114 if (fun instanceof Function || fun instanceof GenericFunction) 2115 2115 return funcall2(fun, second, third, LispThread.currentThread()); 2116 2116 throw new ConditionThrowable(new UndefinedFunction(first)); … … 2125 2125 else 2126 2126 fun = args[0]; 2127 if (fun instanceof Function ) {2127 if (fun instanceof Function || fun instanceof GenericFunction) { 2128 2128 final int length = args.length - 1; // Number of arguments. 2129 2129 if (length == 3) {
Note: See TracChangeset
for help on using the changeset viewer.