Changeset 3630

Timestamp:

09/08/03 18:18:29 (20 years ago)

Author:

piso

Message:

SUBTYPEP

File:

• trunk/j/src/org/armedbear/lisp/Primitives.java (modified) (2 diffs)

trunk/j/src/org/armedbear/lisp/Primitives.java

@@ -3 +3 @@
  *
  * Copyright (C) 2002-2003 Peter Graves
- * $Id: Primitives.java,v 1.377 2003-09-08 17:16:28 piso Exp $
+ * $Id: Primitives.java,v 1.378 2003-09-08 18:18:29 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -2329 +2329 @@
             if (args[0] == NIL)
                 return T;
-            if (args[1] == NIL)
-                return NIL;
             TypeSpecifier ts1 = TypeSpecifier.getInstance(args[0]);
             TypeSpecifier ts2 = TypeSpecifier.getInstance(args[1]);