- armedbear-devel - mailman3.common-lisp.net

[armedbear-devel] Virtual call removal patch
by Ville Voutilainen 29 Nov '09

29 Nov '09

Here's a patch that removes some virtuals from LispObject. My measurements show a small positive performance impact. I see no reason not to apply this patch, so please holler if you have any complaints. Erik, does this require a fasl version update? I imagine yes, but I'm not 100% sure, and haven't have time to check.

1 0

[armedbear-devel] Bug in translate-logical-pathname.
by Thomas Russ 26 Nov '09

26 Nov '09

There seems to be a bug in TRANSLATE-LOGICAL-PATHNAME when the logical pathname source includes constant elements in addition to wildcards. Here is an example that demonstrates the problem: CL-USER(1): (setf (logical-pathname-translations "L") '(("L:NATIVE;**;*.*" "/usr/lisp/abcl/native/**/*.*"))) ((#P"L:NATIVE;**;*.*" #P"/usr/lisp/abcl/native/**/*.*")) CL-USER(2): (translate-logical-pathname "L:NATIVE;TEST;FOO.FASL") #P"/usr/lisp/abcl/native/native/test/foo.fasl" ;; ERROR. Should be #P"/usr/lisp/abcl/native/test/foo.fasl" ;; ;; With :wild-inferiors, the full directory path is copied instead of ;; just the part after the matching constant part. That results in ;; the "native" element appearing twice. ;; The problem seems to be in the file "abcl/src/org/armedbear/lisp/ pathnames.lisp", in the function SYSTEM::TRANSLATE-DIRECTORY-COMPONENTS: (defun translate-directory-components (source from to case) (cond ((null to) nil ) ((memq (car to) '(:absolute :relative)) (cons (car to) (translate-directory-components (cdr source) (cdr from) (cdr to) case)) ) ((eq (car to) :wild) (if (eq (car from) :wild) ;; Grab the next chunk from SOURCE. (append (casify (car source) case) (translate-directory-components (cdr source) (cdr from) (cdr to) case)) (error "Unsupported case 1: ~S ~S ~S" source from to)) ) ((eq (car to) :wild-inferiors) ;; Grab the next chunk from SOURCE. (append (casify (car source) case) (translate-directory-components (cdr source) (cdr from) (cdr to) case)) ) (t ;; "If the piece in TO-WILDCARD is present and not wild, it is copied ;; into the result." (append (casify (car to) case) (translate-directory-components source from (cdr to) case)) ) )) The final COND clause ("T") needs to be more sophisticated in what it does. If there are non-wildcard elements in the FROM, then it will need to eliminate the the common prefix between "source" and "from". In order to be a valid match, it I think it SHOULD be guaranteed that a non-wildcard "from" component is a leading subsequence or equal to "source" -- but I'm not fully familiar with the code, but a quick test seems to indicate that the following modified function covers at least the simpler cases of this issue. It adds a new clause checking for :WILD-INFERIORS in the FROM slot which performs the current function, and changes the T clause to properly manage the subsequence matching. (defun translate-directory-components (source from to case) (cond ((null to) nil ) ((memq (car to) '(:absolute :relative)) (cons (car to) (translate-directory-components (cdr source) (cdr from) (cdr to) case)) ) ((eq (car to) :wild) (if (eq (car from) :wild) ;; Grab the next chunk from SOURCE. (append (casify (car source) case) (translate-directory-components (cdr source) (cdr from) (cdr to) case)) (error "Unsupported case 1: ~S ~S ~S" source from to)) ) ((eq (car to) :wild-inferiors) ;; Grab the next chunk from SOURCE. (append (casify (car source) case) (translate-directory-components (cdr source) (cdr from) (cdr to) case)) ) ((eq (car from) :wild-inferiors) ;; "If the piece in TO-WILDCARD is present and not wild, and the FROM item ;; doesn't contain any constants, then just copy TO to the result." (append (casify (car to) case) (translate-directory-components source from (cdr to) case))) (t ;; "If the piece in TO-WILDCARD is present and not wild, then FROM should ;; be a subsequence of SOURCE. The common subsequence needs to be removed ;; in the recursive call. Special case handling for a full match is ;; also needed." (let ((pos (mismatch (car source) (car from) :test #'string- equal))) (append (casify (car to) case) (if (null pos) ;; A full match, pop both source and from (translate-directory-components (cdr source) (cdr from) (cdr to) case) (translate-directory-components (cons (subseq (car source) pos) (cdr source)) (cdr from) (cdr to) case)))) ) ))

5 5

Re: [armedbear-devel] DEFUN (SETF ...)s
by dmiles＠users.sourceforge.net 23 Nov '09

23 Nov '09

Ah, look at this: (offline Erik suggested something) Armed Bear Common Lisp 0.18.0-dev (built Mon Nov 23 2009 12:07:35 PST) Java 1.6.0_10 Sun Microsystems Inc. Java HotSpot(TM) 64-Bit Server VM Low-level initialization completed in 0.766 seconds. Startup completed in 1.642 seconds. Type ":help" for a list of available commands. CL-USER(1): (require "JAVA") ("CLOS" "JAVA-EXTENSIONS") CL-USER(2): (setf (jfield "dmiles.TestClass" "StaticField") "stuff") "stuff" CL-USER(3): If my app calls (require "JAVA") first that's not a bad thing When I use Allegro Lisp I gotta call a few forms before #'jfield works :) (require :jlinker) (use-package "javatools.jlinker") (jlinker-init) It is kinda a hard call to know when we have to require the user to (require ..something..) ? so much in ABCL happens by magic.. I get spoiled > > ----- Original Message ----- > From: "Alessio Stalla" <alessiostalla(a)gmail.com> > To: <dmiles(a)users.sourceforge.net> > Cc: "Armed Bear" <armedbear-devel(a)common-lisp.net> > Sent: Monday, November 23, 2009 12:38 PM > Subject: Re: [armedbear-devel] DEFUN (SETF ...)s > > > It might be related to autoloading: java.lisp is not autoloaded by > (setf jfield), but it is by the debugger, so after the error it works. > If that is the problem, I don't have the solution... other than > calling some function defined in java.lisp before (setf jfield), but > that's not pretty. > > hth, > Alessio > > On Mon, Nov 23, 2009 at 9:30 PM, <logicmoo(a)gmail.com> wrote: >> It looks to be a loadtime thing (offline Erik thought maybe it was so) >> See this output: >> >> Armed Bear Common Lisp 0.18.0-dev (built Mon Nov 23 2009 12:07:35 PST) >> Java 1.6.0_10 Sun Microsystems Inc. >> Java HotSpot(TM) 64-Bit Server VM >> Low-level initialization completed in 0.658 seconds. >> Startup completed in 1.516 seconds. >> Type ":help" for a list of available commands. >> CL-USER(1): (jfield "dmiles.TestClass" "StaticField") >> "fresh" >> CL-USER(2): (setf (jfield "dmiles.TestClass" "StaticField") "stuff") >> Debugger invoked on condition of type UNDEFINED-FUNCTION: >> The function (SETF JFIELD) is undefined. >> Restarts: >> 0: TOP-LEVEL Return to top level. >> [1] CL-USER(3): 0 >> CL-USER(4): (setf (jfield "dmiles.TestClass" "StaticField") "stuff") >> Debugger invoked on condition of type UNDEFINED-FUNCTION: >> The function (SETF JFIELD) is undefined. >> Restarts: >> 0: TOP-LEVEL Return to top level. >> [1] CL-USER(5): :bt >> 0: (SYSTEM:BACKTRACE) >> 1: (INVOKE-DEBUGGER #<UNDEFINED-FUNCTION {27F40B69}>) >> 2: org.armedbear.lisp.Lisp.error(Lisp.java:365) >> 3: org.armedbear.lisp.SpecialOperators$14.execute(SpecialOperators.java:493) >> 4: org.armedbear.lisp.Lisp.eval(Lisp.java:461) >> 5: org.armedbear.lisp.Lisp.evalCall(Lisp.java:501) >> 6: org.armedbear.lisp.Lisp.eval(Lisp.java:471) >> 7: org.armedbear.lisp.Lisp.progn(Lisp.java:640) >> [1] CL-USER(6): 0 >> CL-USER(7): (setf (jfield "dmiles.TestClass" "StaticField") "stuff") >> "stuff" >> CL-USER(8): >> >> _______________________________________________ >> armedbear-devel mailing list >> armedbear-devel(a)common-lisp.net >> http://common-lisp.net/cgi-bin/mailman/listinfo/armedbear-devel >>

1 0

Re: [armedbear-devel] DEFUN (SETF ...)s
by logicmoo＠gmail.com 23 Nov '09

23 Nov '09

It looks to be a loadtime thing (offline Erik thought maybe it was so) See this output: Armed Bear Common Lisp 0.18.0-dev (built Mon Nov 23 2009 12:07:35 PST) Java 1.6.0_10 Sun Microsystems Inc. Java HotSpot(TM) 64-Bit Server VM Low-level initialization completed in 0.658 seconds. Startup completed in 1.516 seconds. Type ":help" for a list of available commands. CL-USER(1): (jfield "dmiles.TestClass" "StaticField") "fresh" CL-USER(2): (setf (jfield "dmiles.TestClass" "StaticField") "stuff") Debugger invoked on condition of type UNDEFINED-FUNCTION: The function (SETF JFIELD) is undefined. Restarts: 0: TOP-LEVEL Return to top level. [1] CL-USER(3): 0 CL-USER(4): (setf (jfield "dmiles.TestClass" "StaticField") "stuff") Debugger invoked on condition of type UNDEFINED-FUNCTION: The function (SETF JFIELD) is undefined. Restarts: 0: TOP-LEVEL Return to top level. [1] CL-USER(5): :bt 0: (SYSTEM:BACKTRACE) 1: (INVOKE-DEBUGGER #<UNDEFINED-FUNCTION {27F40B69}>) 2: org.armedbear.lisp.Lisp.error(Lisp.java:365) 3: org.armedbear.lisp.SpecialOperators$14.execute(SpecialOperators.java:493) 4: org.armedbear.lisp.Lisp.eval(Lisp.java:461) 5: org.armedbear.lisp.Lisp.evalCall(Lisp.java:501) 6: org.armedbear.lisp.Lisp.eval(Lisp.java:471) 7: org.armedbear.lisp.Lisp.progn(Lisp.java:640) [1] CL-USER(6): 0 CL-USER(7): (setf (jfield "dmiles.TestClass" "StaticField") "stuff") "stuff" CL-USER(8):

2 1

[armedbear-devel] DEFUN (SETF ...)s
by logicmoo＠gmail.com 23 Nov '09

23 Nov '09

Help me out! I made a class called: TestClass ------------------------src/dmiles/TestClass.java--------------------- package dmiles public class TestClass { static public String StaticField = "fresh"; } ------------------------------------------------------------------------- Now in the REPL everything works fine. Armed Bear Common Lisp 0.18.0-dev (built Mon Nov 23 2009 06:46:01 PST) Java 1.6.0_10 Sun Microsystems Inc. Java HotSpot(TM) 64-Bit Server VM Low-level initialization completed in 0.658 seconds. Startup completed in 1.877 seconds. Type ":help" for a list of available commands. CL-USER(1): (defun (setf jfield) (newvalue class-ref-or-field field-or-instance &optional ( instance :noinst) unused-value) (declare (ignorable unused-value)) (if (eq instance :noinst) (jfield class-ref-or-field field-or-instance newvalue) (jfield class-ref-or-field field-or-instance instance newvalue))) (SETF JFIELD) CL-USER(2): (jfield "dmiles.TestClass" "StaticField") "fresh" CL-USER(3): (define-symbol-macro %TESTSYM (jfield "dmiles.TestClass" "StaticField")) %TESTSYM CL-USER(4): CL-USER(4): %TESTSYM "fresh" CL-USER(5): (setf %TESTSYM "flithy") "flithy" CL-USER(6): %TESTSYM "flithy" CL-USER(7): (jfield "dmiles.TestClass" "StaticField") "flithy" CL-USER(8): --------------------------------------------------------------------------------- Question: locally I added this to the bottem of java.lisp (defun (setf jfield) (newvalue class-ref-or-field field-or-instance &optional ( instance :noinst) unused-value) (declare (ignorable unused-value)) (if (eq instance :noinst) (jfield class-ref-or-field field-or-instance newvalue) (jfield class-ref-or-field field-or-instance instance newvalue))) Cleaned and rebuilt the system.. To test it: Armed Bear Common Lisp 0.18.0-dev (built Mon Nov 23 2009 12:07:35 PST) Java 1.6.0_10 Sun Microsystems Inc. Java HotSpot(TM) 64-Bit Server VM Low-level initialization completed in 0.564 seconds. Startup completed in 1.651 seconds. Type ":help" for a list of available commands. CL-USER(1): (jfield "dmiles.TestClass" "StaticField") "fresh" CL-USER(2): (define-symbol-macro %TESTSYM (jfield "dmiles.TestClass" "StaticField")) %TESTSYM CL-USER(3): %TESTSYM "fresh" CL-USER(4): (setf %TESTSYM "flithy") Debugger invoked on condition of type UNDEFINED-FUNCTION: The function (SETF JFIELD) is undefined. Restarts: 0: TOP-LEVEL Return to top level. [1] CL-USER(5): :bt 0: (SYSTEM:BACKTRACE) 1: (INVOKE-DEBUGGER #<UNDEFINED-FUNCTION {50E26AE7}>) 2: org.armedbear.lisp.Lisp.error(Lisp.java:365) 3: org.armedbear.lisp.SpecialOperators$14.execute(SpecialOperators.java:493) 4: org.armedbear.lisp.Lisp.eval(Lisp.java:461) 5: org.armedbear.lisp.Lisp.evalCall(Lisp.java:501) 6: org.armedbear.lisp.Lisp.eval(Lisp.java:471) 7: org.armedbear.lisp.Lisp.progn(Lisp.java:640) [1] CL-USER(6): Hw do a add a new (defun (setf ..) .. .) to the library?

1 0

Re: [armedbear-devel] SETF for JFEILDS
by dmiles＠users.sourceforge.net 23 Nov '09

23 Nov '09

> ----- Original Message ----- > From: "Alessio Stalla" <alessiostalla(a)gmail.com> > To: <dmiles(a)users.sourceforge.net> > Cc: "Armed Bear" <armedbear-devel(a)common-lisp.net> > Sent: Monday, November 23, 2009 9:18 AM > Subject: Re: [armedbear-devel] SETF for JFEILDS > > > On Mon, Nov 23, 2009 at 5:57 PM, <logicmoo(a)gmail.com> wrote: >> Ok even Allegro uses T and NIL for the Booleans.. which is why >> >>> CL-USER(17): (jclass-of (jfield "java.lang.Boolean" "TRUE")) >>> NIL >>> NIL >> >> was still correct.. I think the closer we stick with Allegro the better. >> >> >> >> for future reference (to myself) to make a boolean one does: >> >> >> CL-USER(21): (jnew (jconstructor "java.lang.Boolean" "java.lang.String") "True") >> #<java.lang.Boolean true {44AC5E}> >> CL-USER(22): (jclass-of (jnew (jconstructor "java.lang.Boolean" "java.lang.String") "True")) >> "java.lang.Boolean" >> "java.lang.Boolean" > > If you want a boolean (primitive type) I believe you can do > (make-immediate-object T-or-NIL :boolean) (make-immediate-object t :boolean) #<java.lang.Boolean true {1C904F75}> Neat, I hadn't known (or forgot) about Arg2 of #'make-immediate-object ! Thx > If you want Boolean.TRUE or Boolean.FALSE the cleaner way would be to > have a jfield-raw like jcall-raw, if I understand it correctly. CL-USER(24): (jfield-raw "java.lang.Boolean" "TRUE") #<java.lang.Boolean true {465098F9}> Indeed. >> >> >> If there is any action items out of all this: >> >> Perhaps: javaInstance() on Nil returns Boolean.FALSE? > > This would break a lot of existing code, I'm afraid. NIL is often used > to mean null. *nod* well either meaning is just as dubious.. but as you say allot of existing code likes NIL to mean EMPTY which sounds more like a 'null' than a 'false'. > >> Then in Symbol.java >> >> Object javaInstance() { >> if (this == T) return Boolean.TRUE; >> return super.javaInstance(); >> } >> > > I don't agree for consistency with NIL and for similar concerns on > existing code. However, hold on... > >> >> And in LispObject itself any thoughts on? >> >> LispObject.this.javaInstance(Class c) { >> if (c.isInstance(this)) return this; >> // widen and resubmit for subclasses >> if (c==int.class) return javaInstance(Integer.class); >> if (c==boolean.class) return javaInstance(Boolean.class); >> // they requested a boolean.. give it to them >> if (c==Boolean.class) return getBooleanValue(); >> ..... >> //hit the error logic >> } > > Now for javaInstance(Class) I completely agree with you: it should > mean - everywhere! - "convert this object to a Java object of the > given class, if possible". > > So LispObject.javaInstance(Class c) should be like you said, and in > some subclasses (Fixnum, AbstractString come to my mind) it should be > overridden. Good > At that point we could even generify it: > > public <T> T javaInstance(Class<T> c) > > So users might write, e.g., String s = myLispObject.javaInstance(String.class); > I like the generics for it as well > Just my €.02 > > Alessio > >> >> >> ----- Original Message ----- >> From: <dmiles(a)users.sourceforge.net> >> To: "Armed Bear" <armedbear-devel(a)common-lisp.net> >> Sent: Monday, November 23, 2009 7:42 AM >> Subject: Re: [armedbear-devel] SETF for JFEILDS >> >> >>> >>> These 3 look good >>> >>> >>> CL-USER(2): (jclass-of (jfield "java.lang.System" "out")) >>> "java.io.PrintStream" >>> "java.io.PrintStream" >>> >>> CL-USER(4): (jclass-of 1) >>> NIL >>> NIL >>> >>> CL-USER(5): (jclass-of (make-immediate-object 1)) >>> "java.lang.Integer" >>> "java.lang.Integer" >>> >>> >>> >>> But is this correct? >>> >>> >>> CL-USER(17): (jclass-of (jfield "java.lang.Boolean" "TRUE")) >>> NIL >>> NIL >>> CL-USER(18): (jclass-of (jfield "java.lang.Boolean" "FALSE")) >>> NIL >>> NIL >>> >>> >>> >>> >> >> _______________________________________________ >> armedbear-devel mailing list >> armedbear-devel(a)common-lisp.net >> http://common-lisp.net/cgi-bin/mailman/listinfo/armedbear-devel >> > > _______________________________________________ > armedbear-devel mailing list > armedbear-devel(a)common-lisp.net > http://common-lisp.net/cgi-bin/mailman/listinfo/armedbear-devel

1 0

Re: [armedbear-devel] SETF for JFEILDS
by logicmoo＠gmail.com 23 Nov '09

23 Nov '09

Ok even Allegro uses T and NIL for the Booleans.. which is why > CL-USER(17): (jclass-of (jfield "java.lang.Boolean" "TRUE")) > NIL > NIL was still correct.. I think the closer we stick with Allegro the better. for future reference (to myself) to make a boolean one does: CL-USER(21): (jnew (jconstructor "java.lang.Boolean" "java.lang.String") "True") #<java.lang.Boolean true {44AC5E}> CL-USER(22): (jclass-of (jnew (jconstructor "java.lang.Boolean" "java.lang.String") "True")) "java.lang.Boolean" "java.lang.Boolean" If there is any action items out of all this: Perhaps: javaInstance() on Nil returns Boolean.FALSE? Then in Symbol.java Object javaInstance() { if (this == T) return Boolean.TRUE; return super.javaInstance(); } And in LispObject itself any thoughts on? LispObject.this.javaInstance(Class c) { if (c.isInstance(this)) return this; // widen and resubmit for subclasses if (c==int.class) return javaInstance(Integer.class); if (c==boolean.class) return javaInstance(Boolean.class); // they requested a boolean.. give it to them if (c==Boolean.class) return getBooleanValue(); ..... //hit the error logic } ----- Original Message ----- From: <dmiles(a)users.sourceforge.net> To: "Armed Bear" <armedbear-devel(a)common-lisp.net> Sent: Monday, November 23, 2009 7:42 AM Subject: Re: [armedbear-devel] SETF for JFEILDS > > These 3 look good > > > CL-USER(2): (jclass-of (jfield "java.lang.System" "out")) > "java.io.PrintStream" > "java.io.PrintStream" > > CL-USER(4): (jclass-of 1) > NIL > NIL > > CL-USER(5): (jclass-of (make-immediate-object 1)) > "java.lang.Integer" > "java.lang.Integer" > > > > But is this correct? > > > CL-USER(17): (jclass-of (jfield "java.lang.Boolean" "TRUE")) > NIL > NIL > CL-USER(18): (jclass-of (jfield "java.lang.Boolean" "FALSE")) > NIL > NIL > > > >

2 1

Re: [armedbear-devel] SETF for JFEILDS
by logicmoo＠gmail.com 23 Nov '09

23 Nov '09

Does anyone object to adding this to java.lisp? If not could it be done? (defun (setf jfield) (newvalue class-ref-or-field field-or-instance &optional ( instance :noinst) (value :novalue)) (if (eq instance :noinst) (jfield class-ref-or-field field-or-instance newvalue) (jfield class-ref-or-field field-or-instance instance newvalue))) ----- Original Message ----- From: <dmiles(a)users.sourceforge.net> To: "Armed Bear" <armedbear-devel(a)common-lisp.net> Sent: Tuesday, November 10, 2009 12:24 AM Subject: SETF for JFEILDS > Hi, > > Could we add add something like this to java.lisp? > > (defun (setf jfield) > (newvalue class-ref-or-field field-or-instance &optional ( instance :noinst) (value :novalue)) > (if (eq instance :noinst) > (jfield class-ref-or-field field-or-instance newvalue) > (jfield class-ref-or-field field-or-instance instance newvalue))) > > -Thx

2 3

Re: [armedbear-devel] SETF for JFEILDS
by logicmoo＠gmail.com 23 Nov '09

23 Nov '09

So actually (defun (setf jfield) (newvalue class-ref-or-field field-or-instance &optional ( instance :noinst) unusedvalue) (if (eq instance :noinst) (jfield class-ref-or-field field-or-instance newvalue) (jfield class-ref-or-field field-or-instance instance newvalue))) Would be a little better.. good eye. ----- Original Message ----- From: <dmiles(a)users.sourceforge.net> To: "Alessio Stalla" <alessiostalla(a)gmail.com> Cc: "Armed Bear" <armedbear-devel(a)common-lisp.net> Sent: Monday, November 23, 2009 6:27 AM Subject: Re: [armedbear-devel] SETF for JFEILDS > > ----- Original Message ----- > From: "Alessio Stalla" <alessiostalla(a)gmail.com> > To: <dmiles(a)users.sourceforge.net> > Cc: "Armed Bear" <armedbear-devel(a)common-lisp.net> > Sent: Monday, November 23, 2009 5:42 AM > Subject: Re: [armedbear-devel] SETF for JFEILDS > > > On Mon, Nov 23, 2009 at 2:36 PM, <logicmoo(a)gmail.com> wrote: >>> Does anyone object to adding this to java.lisp? If not could it be done? >>> >>> (defun (setf jfield) >>> (newvalue class-ref-or-field field-or-instance &optional ( instance :noinst) (value :novalue)) >>> (if (eq instance :noinst) >>> (jfield class-ref-or-field field-or-instance newvalue) >>> (jfield class-ref-or-field field-or-instance instance newvalue))) > >>It seems a nice idea to me, but there are a couple of things that I >>don't understand: > > A>- why :noinst and not simply nil? > > JFIELD is defined as: class-ref-or-field field-or-instance &optional instance value > The valid argument patterns for this operation are: > (class-ref field-name): to retrieve the value of a static field. > (class-ref field-name instance-ref): to retrieve the value of a class field of the instance. > (class-ref field-name primitive-value:) to store primitive-value in a static field. > (class-ref field-name instance-ref value): to store value in a class field of the instance. > (class-ref field-name nil value): to store value in a static field (when value may be confused with an instance-ref). > (field-name instance): to retrieve the value of a field of the instance. The class is derived from the instance. > (field-name instance value): to store value in a field of the instance. The class is derived from the instance. > > JFIELD doesn't distingusih between static and non static fields > > Also cases of "class-ref field-name instance-ref value" (accessing superclass field) > > Depending on how the field is defined > > (setf (jfield *MyClass* "someStaticBooleanField") NIL) > it is distinguable from > (setf (jfield *MySuperClass* "nonStaticBooleanField" *my-instance* ) NIL) > > > -------------------------------------------------------------------------------------------------------------------------- > A>- value is not used, what's the point of it? > > correct the "default :novalue" is not needed. > (I was debugging and trying to find corner cases with all those bizzare legal jfield signatures ) > > > but... "value" as an &optional was needed to match the signature of what is legal for jfield so things like this can work: > > (define-symbol-macro %iscold (jfield "org.armedbear.lisp.Lisp" "cold")) > %iscold ;; ==> NIL > (setq %iscold T) ;; ==> T > %iscold ;; ==> T > (setq %iscold NIL) ;; ==> NIL > >

1 0

[armedbear-devel] PATCH to StopExtendingLisp for 12281
by logicmoo＠gmail.com 23 Nov '09

23 Nov '09

PATCH to StopExtendingLisp for trunk 12281 This patch uncompressed to 105k and it effects many files It has a some goals: When foreign libs instancing a subclass of LispObject to not get Lisp.<clinit> called until its time. Removes an invoke-special from bytecode of LispObject Marks Lisp class as final - (A new file LispTrampolinesFile.java is put in as a historical placeholder for static trampoline classes that once extended Lisp) Does not pass or fail any extra ANSI-TESTS

1 0