Changeset 11889

Timestamp:

05/17/09 11:36:40 (14 years ago)

Author:

vvoutilainen

Message:

Remove CompiledFunction?, we don't need it.

Location:

trunk/abcl/src/org/armedbear/lisp

Files:

• CompiledClosure.java (modified) (1 diff)
• CompiledFunction.java (deleted)
• Lisp.java (modified) (1 diff)
• Load.java (modified) (1 diff)
• Primitives.java (modified) (1 diff)
• compiler-pass2.lisp (modified) (3 diffs)

trunk/abcl/src/org/armedbear/lisp/CompiledClosure.java

@@ -205 +205 @@
     return notImplemented();
   }
+
+  // ### load-compiled-function
+  private static final Primitive LOAD_COMPILED_FUNCTION =
+      new Primitive("load-compiled-function", PACKAGE_SYS, true, "pathname")
+  {
+    @Override
+    public LispObject execute(LispObject arg) throws ConditionThrowable
+    {
+      String namestring = null;
+      if (arg instanceof Pathname)
+        namestring = ((Pathname)arg).getNamestring();
+      else if (arg instanceof AbstractString)
+        namestring = arg.getStringValue();
+      if (namestring != null)
+        return loadCompiledFunction(namestring);
+      return error(new LispError("Unable to load " + arg.writeToString()));
+    }
+  };
+
+  // ### varlist
+  private static final Primitive VARLIST =
+      new Primitive("varlist", PACKAGE_SYS, false)
+  {
+    @Override
+    public LispObject execute(LispObject arg) throws ConditionThrowable
+    {
+      if (arg instanceof Closure)
+        return ((Closure)arg).getVariableList();
+      return type_error(arg, Symbol.COMPILED_FUNCTION);
+    }
+  };
 }

trunk/abcl/src/org/armedbear/lisp/Lisp.java

@@ -2519 +2519 @@
     loadClass("org.armedbear.lisp.SpecialOperators");
     loadClass("org.armedbear.lisp.Extensions");
-    loadClass("org.armedbear.lisp.CompiledFunction");
+    loadClass("org.armedbear.lisp.CompiledClosure");
     loadClass("org.armedbear.lisp.Autoload");
     loadClass("org.armedbear.lisp.AutoloadMacro");

trunk/abcl/src/org/armedbear/lisp/Load.java

@@ -353 +353 @@
     // internal symbol
     private static final Symbol _FASL_VERSION_ =
-        exportConstant("*FASL-VERSION*", PACKAGE_SYS, Fixnum.getInstance(31));
+        exportConstant("*FASL-VERSION*", PACKAGE_SYS, Fixnum.getInstance(32));
 
     // ### *fasl-anonymous-package*

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

@@ -2440 +2440 @@
             value3 = name != null ? name : NIL;
           }
-        else if (arg instanceof Closure && !(arg instanceof CompiledFunction))
+        else if (arg instanceof Closure)
           {
             Closure closure = (Closure) arg;

trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

@@ -242 +242 @@
 (defconstant +lisp-go-class+ "org/armedbear/lisp/Go")
 (defconstant +lisp-compiled-closure-class+ "org/armedbear/lisp/CompiledClosure")
-(defconstant +lisp-compiled-function-class+ "org/armedbear/lisp/CompiledFunction")
 (defconstant +lisp-primitive-class+ "org/armedbear/lisp/Primitive")
 (defconstant +lisp-hash-table-class+ "org/armedbear/lisp/HashTable")
@@ -1811 +1810 @@
     (setf (method-max-locals constructor) 1)
     (aload 0) ;; this
-    (cond ((equal super +lisp-compiled-function-class+)
-           (emit-constructor-lambda-name lambda-name)
-           (emit-constructor-lambda-list args)
-           (emit-push-nil) ;; body
-           (emit 'aconst_null) ;; environment
-           (emit-invokespecial-init super
-                                    (list +lisp-object+ +lisp-object+
-                                          +lisp-object+ +lisp-environment+)))
-          ((equal super +lisp-primitive-class+)
+    (cond ((equal super +lisp-primitive-class+)
            (emit-constructor-lambda-name lambda-name)
            (emit-constructor-lambda-list args)
@@ -8208 +8199 @@
           (cond
             ((and *child-p* *closure-variables*) +lisp-compiled-closure-class+)
-            (*hairy-arglist-p* +lisp-compiled-function-class+)
+            (*hairy-arglist-p* +lisp-compiled-closure-class+)
             (t +lisp-primitive-class+)))