Move standard-generic-function slot accessors from Java to Lisp

- incremented fasl version since set-generic-function-initial-methods,
  generic-function-documentation are gone
parent 1f3d056e
......@@ -554,9 +554,6 @@ public class Autoload extends Function
autoload(PACKAGE_SYS, "%adjust-array", "adjust_array");
autoload(PACKAGE_SYS, "%defpackage", "PackageFunctions");
autoload(PACKAGE_SYS, "%finalize-generic-function", "StandardGenericFunction", true);
autoload(PACKAGE_SYS, "%generic-function-lambda-list", "StandardGenericFunction", true);
autoload(PACKAGE_SYS, "%generic-function-name", "StandardGenericFunction", true);
autoload(PACKAGE_SYS, "set-generic-function-declarations", "StandardGenericFunction", true);
autoload(PACKAGE_SYS, "%get-output-stream-bytes", "ByteArrayOutputStream"); //AS 20090325
autoload(PACKAGE_SYS, "%get-output-stream-array", "ByteArrayOutputStream");
autoload(PACKAGE_SYS, "%make-array", "make_array");
......@@ -580,12 +577,6 @@ public class Autoload extends Function
autoload(PACKAGE_SYS, "%set-find-class", "LispClass", true);
autoload(PACKAGE_SYS, "%set-class-direct-slots", "SlotClass", true);
autoload(PACKAGE_SYS, "%set-function-info", "function_info");
autoload(PACKAGE_SYS, "%set-generic-function-lambda-list", "StandardGenericFunction", true);
autoload(PACKAGE_SYS, "%set-generic-function-name", "StandardGenericFunction", true);
autoload(PACKAGE_SYS, "%set-gf-required-args", "StandardGenericFunction", true);
autoload(PACKAGE_SYS, "%set-gf-optional-args", "StandardGenericFunction", true);
autoload(PACKAGE_SYS, "gf-required-args", "StandardGenericFunction", true);
autoload(PACKAGE_SYS, "gf-optional-args", "StandardGenericFunction", true);
autoload(PACKAGE_SYS, "%init-eql-specializations", "StandardGenericFunction", true);
autoload(PACKAGE_SYS, "%get-arg-specialization", "StandardGenericFunction", true);
autoload(PACKAGE_SYS, "%set-symbol-macro", "Primitives");
......@@ -645,18 +636,9 @@ public class Autoload extends Function
autoload(PACKAGE_SYS, "float-nan-p", "FloatFunctions", true);
autoload(PACKAGE_SYS, "float-string", "FloatFunctions", true);
autoload(PACKAGE_SYS, "function-info", "function_info");
autoload(PACKAGE_SYS, "%generic-function-argument-precedence-order","StandardGenericFunction", true);
autoload(PACKAGE_SYS, "generic-function-classes-to-emf-table","StandardGenericFunction", true);
autoload(PACKAGE_SYS, "generic-function-documentation","StandardGenericFunction", true);
autoload(PACKAGE_SYS, "generic-function-initial-methods","StandardGenericFunction", true);
autoload(PACKAGE_SYS, "%generic-function-method-class","StandardGenericFunction", true);
autoload(PACKAGE_SYS, "%generic-function-method-combination","StandardGenericFunction", true);
autoload(PACKAGE_SYS, "%generic-function-methods","StandardGenericFunction", true);
autoload(PACKAGE_SYS, "get-cached-emf", "StandardGenericFunction", true);
autoload(PACKAGE_SYS, "get-cached-slot-location", "StandardGenericFunction", true);
autoload(PACKAGE_SYS, "get-function-info-value", "function_info");
autoload(PACKAGE_SYS, "gf-required-args", "StandardGenericFunction", true);
autoload(PACKAGE_SYS, "gf-optional-args", "StandardGenericFunction", true);
autoload(PACKAGE_SYS, "hash-table-entries", "HashTableFunctions");
autoload(PACKAGE_SYS, "hash-table-entries", "HashTableFunctions");
autoload(PACKAGE_SYS, "layout-class", "Layout", true);
......@@ -677,13 +659,6 @@ public class Autoload extends Function
autoload(PACKAGE_SYS, "puthash", "HashTableFunctions");
autoload(PACKAGE_SYS, "remove-zip-cache-entry", "ZipCache");
autoload(PACKAGE_SYS, "set-function-info-value", "function_info");
autoload(PACKAGE_SYS, "set-generic-function-argument-precedence-order","StandardGenericFunction", true);
autoload(PACKAGE_SYS, "set-generic-function-classes-to-emf-table","StandardGenericFunction", true);
autoload(PACKAGE_SYS, "set-generic-function-documentation","StandardGenericFunction", true);
autoload(PACKAGE_SYS, "set-generic-function-initial-methods","StandardGenericFunction", true);
autoload(PACKAGE_SYS, "set-generic-function-method-class","StandardGenericFunction", true);
autoload(PACKAGE_SYS, "set-generic-function-method-combination","StandardGenericFunction", true);
autoload(PACKAGE_SYS, "set-generic-function-methods","StandardGenericFunction", true);
autoload(PACKAGE_SYS, "set-slot-definition-allocation", "SlotDefinition", true);
autoload(PACKAGE_SYS, "set-slot-definition-allocation-class", "SlotDefinition", true);
autoload(PACKAGE_SYS, "set-slot-definition-initargs", "SlotDefinition", true);
......
......@@ -375,7 +375,7 @@ public final class Load
// ### *fasl-version*
// internal symbol
static final Symbol _FASL_VERSION_ =
exportConstant("*FASL-VERSION*", PACKAGE_SYS, Fixnum.getInstance(40));
exportConstant("*FASL-VERSION*", PACKAGE_SYS, Fixnum.getInstance(41));
// ### *fasl-external-format*
// internal symbol
......@@ -443,7 +443,8 @@ public final class Load
+ second.princToString() + "' but expected '"
+ _FASL_VERSION_.getSymbolValue().princToString()
+ "' in "
+ Symbol.LOAD_PATHNAME.symbolValue(thread).princToString()));
+ Symbol.LOAD_PATHNAME.symbolValue(thread).princToString()
+ " (try recompiling the file)"));
}
}
......
This diff is collapsed.
......@@ -104,19 +104,19 @@
(%set-documentation x t new-value))
(defmethod documentation ((x standard-generic-function) (doc-type (eql 't)))
(generic-function-documentation x))
(std-slot-value x 'sys::%documentation))
(defmethod (setf documentation) (new-value (x standard-generic-function)
(doc-type (eql 't)))
(setf (generic-function-documentation x) new-value))
(setf (std-slot-value x 'sys::%documentation) new-value))
(defmethod documentation ((x standard-generic-function)
(doc-type (eql 'function)))
(generic-function-documentation x))
(std-slot-value x 'sys::%documentation))
(defmethod (setf documentation) (new-value (x standard-generic-function)
(doc-type (eql 'function)))
(setf (generic-function-documentation x) new-value))
(setf (std-slot-value x 'sys::%documentation) new-value))
(defmethod documentation ((x standard-method) (doc-type (eql 't)))
(method-documentation x))
......
......@@ -429,7 +429,6 @@
ext:classp
ext:fixnump
ext:memql
sys:%generic-function-name
sys::puthash
precompiler::precompile1
declare
......@@ -444,7 +443,6 @@
sys::require-type
sys::arg-count-error
sys:subclassp
sys:gf-required-args
sys:cache-emf
sys:get-cached-emf
ext:autoloadp
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment