Changeset 4318

Timestamp:

10/11/03 20:40:53 (19 years ago)

Author:

piso

Message:

GENERIC_FUNCTION

File:

• trunk/j/src/org/armedbear/lisp/BuiltInClass.java (modified) (3 diffs)

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

@@ -3 +3 @@
  *
  * Copyright (C) 2003 Peter Graves
- * $Id: BuiltInClass.java,v 1.9 2003-10-11 18:47:27 piso Exp $
+ * $Id: BuiltInClass.java,v 1.10 2003-10-11 20:40:53 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -92 +92 @@
     public static final BuiltInClass FLOATING_POINT_UNDERFLOW         = addClass(Symbol.FLOATING_POINT_UNDERFLOW);
     public static final BuiltInClass FUNCTION                         = addClass(Symbol.FUNCTION);
-    public static final BuiltInClass GENERIC_FUNCTION                 = addClass(Symbol.GENERIC_FUNCTION);
+//     public static final BuiltInClass GENERIC_FUNCTION                 = addClass(Symbol.GENERIC_FUNCTION);
     public static final BuiltInClass HASH_TABLE                       = addClass(Symbol.HASH_TABLE);
     public static final BuiltInClass INTEGER                          = addClass(Symbol.INTEGER);
@@ -154 +154 @@
     static {
         addClass(Symbol.STANDARD_OBJECT, STANDARD_OBJECT);
+    }
+
+    public static final StandardClass GENERIC_FUNCTION =
+        new StandardClass(Symbol.GENERIC_FUNCTION,
+                          list1(FUNCTION));
+    static {
+        addClass(Symbol.GENERIC_FUNCTION, GENERIC_FUNCTION);
     }