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

[armedbear-devel] One (probably) stupid question
by Francisco Vides Fernández 18 May '12

18 May '12

I'm aware that this must be a stupid question, but after googling for a while can't find the right answer: How can I invoke a method with a boolean as an argument. I try to do the following: ---8<--- (let* ((jlclass (jclass "java.lang.Class")) (for-name (jmethod jlclass "forName" (jclass "java.lang.String") (jclass "boolean") (jclass "java.lang.ClassLoader")))) (jstatic for-name jlclass "org.postgresql.Driver" t (get-current-classloader))) ---8<--- But it raises the error: The value T is not of class boolean [Condition of type ERROR] I tried replacing '(jclass "boolean") for '(jclass "java.lang.Boolean"), but in that case it doesn't find the for-name method. How am I supposed to invoke the method! Thanks in advance! -- +----------------- | Francisco Vides Fernández <fvides(a)dedaloingenieros.com> | Gerente | Teléfono fijo: 952 60 29 59 | Fax: 952 60 29 59 | igaleno http://www.igaleno.com/ +------

2 1

[armedbear-devel] sockets in CLISP
by Santiago Carbonell 18 May '12

18 May '12

Hi, I'm trying to send some strings using the format function in LISP to a sockets but always I obtain NIL I'm using this function: (defun sockets_fun() (WITH-OPEN-STREAM (socket (SOCKET:SOCKET-CONNECT 49729 "localhost")) (let ((*standard-output* socket)) (format socket "The color is ~A" "red") (force-output socket) (finish-output nil) ))) But always I obtain NIL in the socket Instead of that function I've tried to use this another function: (defun geetings() (print "hi")) and works fine, appears hi in the socket Why there are problems with sockets with the format function? Thanks

2 1

[armedbear-devel] JSS issues: bug in jss::with-constant-signature, jss::invoke-find-method?
by Jonathan P. Bona 16 May '12

16 May '12

I'm working with Alan Ruttenberg to port LSW from the old version of JSS to the JSS that is now part of abcl-contrib. We've run into the following bug when using with-constant-signature: ; these first two work fine: (#"substring" "some string" 2 4) ; "me" (#"substring" "some string" 2) ; "me string" ; and so does this (with-constant-signature ((substring "substring")) (substring "some string" 2 4)) ; "me" ; but this breaks: (with-constant-signature ((substring "substring")) (substring "some string" 2)) ; Wrong number of arguments for public java.lang.String java.lang.String.substring(int,int): expected 2, got 1 ; [Condition of type PROGRAM-ERROR] A problem seems to be in jss::invoke-find-method, which is finding the two argument version of java.lang.String.substring no matter how many arguments its given: (jss::invoke-find-method "substring" "this is a string" '(1)) ; should return the java.lang.String.substring method with one int arg ; #<method public java.lang.String java.lang.String.substring(int,int)> (jss::invoke-find-method "substring" "this is a string" '(1 2) ) ; #<method public java.lang.String java.lang.String.substring(int,int)> (jss::invoke-find-method "substring" "this is a string" '(1 2 3 4 5 6 7 8) ) ; should be an error ; #<method public java.lang.String java.lang.String.substring(int,int)> - Jonathan Bona

3 5

[armedbear-devel] how to redirect format function to a socket stream
by Santiago Carbonell 13 May '12

13 May '12

Hi, I've a socket stream named "socket" in this port and host: 50362 and localhost I've written this function to redirect format function to the socket but only appears NIL. How can I redirect format t lisp function to a socket? (defun colors() (WITH-OPEN-STREAM (socket (SOCKET:SOCKET-CONNECT 50362 "localhost")) (let ((*standard-output* socket)) (format t "The color is ~A" "red") ))) Thanks

2 1

[armedbear-devel] Error building abcl-servet
by aditya siram 09 May '12

09 May '12

Hi all, I am trying to build abcl-servlet and running into the following error: > ant -find build.xml dist -Dlibs.CopyLibs.classpath=/home/deech/Java/netbeans/java/ant/extra/org-netbeans-modules-java-j2seproject-copylibstask.jar ... /home/deech/Lisp/abcl-servlet/build.xml:36: org.armedbear.lisp.Interpreter$UnhandledCondition: Unhandled lisp condition: #<MISSING-COMPONENT {98F805}> at org.armedbear.lisp.Interpreter$1.execute(Interpreter.java:568) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.Primitives$pf_apply.execute(Primitives.java:2794) at org.armedbear.lisp.Symbol.execute(Symbol.java:796) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.debug_6.execute(debug.lisp:105) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:124) at org.armedbear.lisp.Symbol.execute(Symbol.java:808) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.debug_7.execute(debug.lisp:114) at org.armedbear.lisp.Symbol.execute(Symbol.java:785) at org.armedbear.lisp.LispThread.execute(LispThread.java:649) at org.armedbear.lisp.signal_2.execute(signal.lisp:63) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:124) at org.armedbear.lisp.Symbol.execute(Symbol.java:808) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.asdf_250.execute(asdf.lisp:1692) at org.armedbear.lisp.LispThread.execute(LispThread.java:633) at org.armedbear.lisp.asdf_241.execute(asdf.lisp:1633) at org.armedbear.lisp.Symbol.execute(Symbol.java:785) at org.armedbear.lisp.LispThread.execute(LispThread.java:649) at org.armedbear.lisp.asdf_249.execute(asdf.lisp:1692) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:112) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.Primitives$pf_apply.execute(Primitives.java:2794) at org.armedbear.lisp.Symbol.execute(Symbol.java:796) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.asdf_248.execute(asdf.lisp:1692) at org.armedbear.lisp.clos_297.execute(clos.lisp:2120) at org.armedbear.lisp.LispThread.execute(LispThread.java:649) at org.armedbear.lisp.clos_282.execute(clos.lisp:1934) at org.armedbear.lisp.Symbol.execute(Symbol.java:796) at org.armedbear.lisp.clos_275.execute(clos.lisp:1768) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:112) at org.armedbear.lisp.StandardGenericFunction.execute(StandardGenericFunction.java:138) at org.armedbear.lisp.Symbol.execute(Symbol.java:796) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.asdf_239.execute(asdf.lisp:1623) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:101) at org.armedbear.lisp.LispThread.execute(LispThread.java:649) at org.armedbear.lisp.Primitives$pf_apply.execute(Primitives.java:2791) at org.armedbear.lisp.Symbol.execute(Symbol.java:796) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.asdf_238.execute(asdf.lisp:1623) at org.armedbear.lisp.clos_297.execute(clos.lisp:2120) at org.armedbear.lisp.LispThread.execute(LispThread.java:649) at org.armedbear.lisp.clos_282.execute(clos.lisp:1934) at org.armedbear.lisp.Symbol.execute(Symbol.java:796) at org.armedbear.lisp.clos_275.execute(clos.lisp:1768) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:101) at org.armedbear.lisp.StandardGenericFunction.execute(StandardGenericFunction.java:131) at org.armedbear.lisp.LispThread.execute(LispThread.java:649) at org.armedbear.lisp.Primitives$pf_apply.execute(Primitives.java:2791) at org.armedbear.lisp.Symbol.execute(Symbol.java:796) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.clos_244.execute(clos.lisp:1381) at org.armedbear.lisp.Symbol.execute(Symbol.java:796) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.clos_247.execute(clos.lisp:1400) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:101) at org.armedbear.lisp.StandardGenericFunction.execute(StandardGenericFunction.java:131) at org.armedbear.lisp.Symbol.execute(Symbol.java:785) at org.armedbear.lisp.LispThread.execute(LispThread.java:649) at org.armedbear.lisp.asdf_493.execute(asdf.lisp:2565) at org.armedbear.lisp.LispThread.execute(LispThread.java:633) at org.armedbear.lisp.asdf_241.execute(asdf.lisp:1633) at org.armedbear.lisp.Symbol.execute(Symbol.java:785) at org.armedbear.lisp.LispThread.execute(LispThread.java:649) at org.armedbear.lisp.asdf_492.execute(asdf.lisp:2565) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:112) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.Primitives$pf_apply.execute(Primitives.java:2794) at org.armedbear.lisp.Symbol.execute(Symbol.java:796) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.asdf_491.execute(asdf.lisp:2565) at org.armedbear.lisp.clos_295.execute(clos.lisp:2016) at org.armedbear.lisp.LispThread.execute(LispThread.java:649) at org.armedbear.lisp.clos_282.execute(clos.lisp:1934) at org.armedbear.lisp.Symbol.execute(Symbol.java:796) at org.armedbear.lisp.clos_275.execute(clos.lisp:1768) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:112) at org.armedbear.lisp.StandardGenericFunction.execute(StandardGenericFunction.java:138) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.Primitives$pf_apply.execute(Primitives.java:2794) at org.armedbear.lisp.Symbol.execute(Symbol.java:796) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.clos_244.execute(clos.lisp:1381) at org.armedbear.lisp.Symbol.execute(Symbol.java:796) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.clos_247.execute(clos.lisp:1400) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:112) at org.armedbear.lisp.StandardGenericFunction.execute(StandardGenericFunction.java:138) at org.armedbear.lisp.Symbol.execute(Symbol.java:796) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.Lisp.funcall(Lisp.java:174) at org.armedbear.lisp.Primitives$pf_apply.execute(Primitives.java:2842) at org.armedbear.lisp.Primitive.execute(Primitive.java:148) at org.armedbear.lisp.Symbol.execute(Symbol.java:820) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.asdf_497.execute(asdf.lisp:2625) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:101) at org.armedbear.lisp.LispThread.execute(LispThread.java:649) at org.armedbear.lisp.Lisp.evalCall(Lisp.java:548) at org.armedbear.lisp.Lisp.eval(Lisp.java:513) at org.armedbear.lisp.Lisp.progn(Lisp.java:682) at org.armedbear.lisp.Primitives$sf_eval_when.execute(Primitives.java:3874) at org.armedbear.lisp.Lisp.eval(Lisp.java:503) at org.armedbear.lisp.Load.loadStream(Load.java:567) at org.armedbear.lisp.Load.loadFileFromStream(Load.java:535) at org.armedbear.lisp.Load.load(Load.java:670) at org.armedbear.lisp.Load$_load_returning_last_result.execute(Load.java:648) at org.armedbear.lisp.Symbol.execute(Symbol.java:820) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.load_2.execute(load.lisp:46) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:101) at org.armedbear.lisp.LispThread.execute(LispThread.java:649) at org.armedbear.lisp.Lisp.evalCall(Lisp.java:548) at org.armedbear.lisp.Lisp.eval(Lisp.java:513) at org.armedbear.lisp.Lisp.progn(Lisp.java:682) at org.armedbear.lisp.SpecialOperators$sf_progn.execute(SpecialOperators.java:275) at org.armedbear.lisp.Lisp.eval(Lisp.java:503) at org.armedbear.lisp.Primitives$sf_multiple_value_prog1.execute(Primitives.java:3969) at org.armedbear.lisp.Lisp.eval(Lisp.java:503) at org.armedbear.lisp.Primitives$sf_unwind_protect.execute(Primitives.java:3840) at org.armedbear.lisp.Lisp.eval(Lisp.java:503) at org.armedbear.lisp.Lisp.progn(Lisp.java:682) at org.armedbear.lisp.SpecialOperators._let(SpecialOperators.java:169) at org.armedbear.lisp.SpecialOperators$sf_let.execute(SpecialOperators.java:101) at org.armedbear.lisp.Lisp.eval(Lisp.java:503) at org.armedbear.lisp.Lisp.eval(Lisp.java:506) at org.armedbear.lisp.Lisp.eval(Lisp.java:511) at org.armedbear.lisp.Lisp.progn(Lisp.java:682) at org.armedbear.lisp.SpecialOperators$sf_progn.execute(SpecialOperators.java:275) at org.armedbear.lisp.Lisp.eval(Lisp.java:503) at org.armedbear.lisp.SpecialOperators._let(SpecialOperators.java:146) at org.armedbear.lisp.SpecialOperators$sf_let.execute(SpecialOperators.java:101) at org.armedbear.lisp.Lisp.eval(Lisp.java:503) at org.armedbear.lisp.Lisp.eval(Lisp.java:506) at org.armedbear.lisp.Lisp.progn(Lisp.java:682) at org.armedbear.lisp.SpecialOperators._let(SpecialOperators.java:169) at org.armedbear.lisp.SpecialOperators$sf_let.execute(SpecialOperators.java:101) at org.armedbear.lisp.Lisp.eval(Lisp.java:503) at org.armedbear.lisp.Lisp.progn(Lisp.java:682) at org.armedbear.lisp.SpecialOperators._let(SpecialOperators.java:169) at org.armedbear.lisp.SpecialOperators$sf_let.execute(SpecialOperators.java:101) at org.armedbear.lisp.Lisp.eval(Lisp.java:503) at org.armedbear.lisp.Primitives$pf__eval.execute(Primitives.java:345) at org.armedbear.lisp.LispThread.execute(LispThread.java:649) at org.armedbear.lisp.Lisp.evalCall(Lisp.java:548) at org.armedbear.lisp.Lisp.eval(Lisp.java:513) at org.armedbear.lisp.Lisp.progn(Lisp.java:682) at org.armedbear.lisp.Primitives$sf_block.execute(Primitives.java:3733) at org.armedbear.lisp.Lisp.eval(Lisp.java:503) at org.armedbear.lisp.Lisp.progn(Lisp.java:682) at org.armedbear.lisp.Closure.bindParametersAndExecute(Closure.java:451) at org.armedbear.lisp.Closure.execute(Closure.java:484) at org.armedbear.lisp.LispThread.execute(LispThread.java:649) at org.armedbear.lisp.Lisp.evalCall(Lisp.java:548) at org.armedbear.lisp.Lisp.eval(Lisp.java:513) at org.armedbear.lisp.Lisp.progn(Lisp.java:682) at org.armedbear.lisp.SpecialOperators._let(SpecialOperators.java:169) at org.armedbear.lisp.SpecialOperators$sf_let.execute(SpecialOperators.java:101) at org.armedbear.lisp.Lisp.eval(Lisp.java:503) at org.armedbear.lisp.Lisp.progn(Lisp.java:682) at org.armedbear.lisp.Primitives$sf_block.execute(Primitives.java:3733) at org.armedbear.lisp.Lisp.eval(Lisp.java:503) at org.armedbear.lisp.Lisp.progn(Lisp.java:682) at org.armedbear.lisp.Closure.bindParametersAndExecute(Closure.java:451) at org.armedbear.lisp.Closure.execute(Closure.java:561) at org.armedbear.lisp.scripting.AbclScriptEngine.eval(AbclScriptEngine.java:234) at org.armedbear.lisp.scripting.AbclScriptEngine.eval(AbclScriptEngine.java:243) at javax.script.AbstractScriptEngine.eval(AbstractScriptEngine.java:247) at sun.reflect.NativeMethodAccessorImpl.invoke0(Native Method) at sun.reflect.NativeMethodAccessorImpl.invoke(NativeMethodAccessorImpl.java:39) at sun.reflect.DelegatingMethodAccessorImpl.invoke(DelegatingMethodAccessorImpl.java:25) at java.lang.reflect.Method.invoke(Method.java:597) at org.apache.tools.ant.util.ReflectUtil.invoke(ReflectUtil.java:108) at org.apache.tools.ant.util.ReflectWrapper.invoke(ReflectWrapper.java:81) at org.apache.tools.ant.util.optional.JavaxScriptRunner.evaluateScript(JavaxScriptRunner.java:103) at org.apache.tools.ant.util.optional.JavaxScriptRunner.executeScript(JavaxScriptRunner.java:67) at org.apache.tools.ant.taskdefs.optional.Script.execute(Script.java:52) at org.apache.tools.ant.UnknownElement.execute(UnknownElement.java:291) at sun.reflect.GeneratedMethodAccessor4.invoke(Unknown Source) at sun.reflect.DelegatingMethodAccessorImpl.invoke(DelegatingMethodAccessorImpl.java:25) at java.lang.reflect.Method.invoke(Method.java:597) at org.apache.tools.ant.dispatch.DispatchUtils.execute(DispatchUtils.java:106) at org.apache.tools.ant.Task.perform(Task.java:348) at org.apache.tools.ant.Target.execute(Target.java:390) at org.apache.tools.ant.Target.performTasks(Target.java:411) at org.apache.tools.ant.Project.executeSortedTargets(Project.java:1399) at org.apache.tools.ant.Project.executeTarget(Project.java:1368) at org.apache.tools.ant.helper.DefaultExecutor.executeTargets(DefaultExecutor.java:41) at org.apache.tools.ant.Project.executeTargets(Project.java:1251) at org.apache.tools.ant.Main.runBuild(Main.java:809) at org.apache.tools.ant.Main.startAnt(Main.java:217) at org.apache.tools.ant.launch.Launcher.run(Launcher.java:280) at org.apache.tools.ant.launch.Launcher.main(Launcher.java:109) My ABCL version is 1.0.1. -deech

2 3

[armedbear-devel] Patch with improvements to stable-sort and sort
by Jorge Tavares 07 May '12

07 May '12

Hi, I send in attach a patch with further improvements to sort and stable-sort for sequences other than lists. In short, the patch includes a merge sort for vectors. To allow different types I've written the algorithm using macros and these generate the appropriate code according to the vector type. This way the algorithm is in a single place avoiding duplication of code. The macros also take care of the situation of when no key is present, avoiding the use of unnecessary funcalls. The quicksort algorithm was also refactored in the same way. I've tested the algorithms and they seem to be working correct. Stable sort is now considerably faster since the fix before converted the sequences to a list and used the sort-list function. I've made some benchmarking to verify how fast is sort and stable-sort. The tables with the results are also in a file sent in attach [1]. For stable-sort I've compare the current trunk version with the patched one while for sort I've compared 1.0.1, the trunk and with the patch. For unsorted vectors sort has a speed up of 7.5 from 1.0.1 and this considers only vectors of size 8 to 8192 (1.0.1 hits the worst-case quite fast). For stable-sort the speed up is around 90.2 from vectors of size 8 to 32768. The sort functions become even faster for the nearly sorted vectors. I think the tables clearly show the speed-ups :-) Naturally these benchmarks cannot be used to draw definite conclusions since they lack rigorous testing but I think they can provide some indications. With this patch, I think ABCL gets good performant sorting functions, especially for large vectors. As for lists, I haven't looked at them so probably they can also be improved (but I really don't know). Cheers, Jorge [1] The tables result from the generation of simple-vectors of sizes 8 to 524288 (powers of 2 from 3 to 19) with distinct integer: unsorted, nearly sorted (distances 0, 4 and 16), sorted and reversed sorted. The nearly sorted vectors were constructed by selecting pairs where they would swap with a neighbor at a certain distance. I did 100 runs and timed only the sorting operation. The tables contain the averages of the 100 runs. They were performed in an iMac (2.5GHz i5, 4GB) with Mac OS X 10.7.3. -- http://jorgetavares.com

2 2

[armedbear-devel] *load-pathname* with incorrect value
by wl chiu 06 May '12

06 May '12

Hi again, I have a file: ---- load-pathname.lisp ----- (print *load-pathname*) ----------------------------- When loaded, I get this: java.exe -cp "abcl.jar" org.armedbear.lisp.Main --load load-path.lisp==> #P"load-path.lisp" According to CLHS, I believe this is wrong? During a call to load, *load-pathname* is bound to the pathname denoted by the the first argument to load, merged against the defaults; that is, it is bound to (pathname (merge-pathnames filespec)). During the same time Cheers, Wei-Lun Chiu

2 1