headers
Alex Mizrahi | 23 May 15:06
Picon

Is anybody interested in jfli-abcl?

jfli-abcl, basically, allows one to quickly create Lisp function 
wrappers for Java classes.

E.g.

(def-java-class "java.sql.DriverManager")
(use-package :|java.sql|)
(DriverManager.getConnection ...)

The benefit over java:jcall  and JSS is that it looks more-or-less like 
normal Lisp function calls, pretty similar to a wrapper you could write 
yourself.
Also, potentially, it might carry less runtime overhead because 
everything can be resolved at compile-time.

And if you use SLIME, auto-completion works. It doesn't like mixed case, 
though, so you need to write it like
(|java.sql|:drivermanager.getcollection ...)
Still, better than nothing.

As far as I can tell, jfli-abcl isn't currently maintained.
But as I'm used to jfli-abcl I maintain my own version with some fixes.

If there is any interest in jfli-abcl I could, perhaps,. publish my 
version and polish it a bit.

(I'm personally not interested in new-class functionality which allows 
one to create Java class from Lisp.)

(I've found this updated version:
(Continue reading)

Permalink | Reply | 4 comments |
headers
Francisco Vides Fernández | 18 May 13:14

One (probably) stupid question

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-u/fcxpuwxnlHddKoEH+GZlaTQe2KTcn/@public.gmane.org> | Gerente | Teléfono fijo: 952 60 29 59 | Fax: 952 60 29 59 | igaleno http://www.igaleno.com/ +------ 
_______________________________________________
armedbear-devel mailing list
armedbear-devel@...
http://lists.common-lisp.net/cgi-bin/mailman/listinfo/armedbear-devel
Permalink | Reply | 2 comments |
headers
Santiago Carbonell | 18 May 11:38
Picon

sockets in CLISP

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


_______________________________________________
armedbear-devel mailing list
armedbear-devel@...
http://lists.common-lisp.net/cgi-bin/mailman/listinfo/armedbear-devel
Permalink | Reply | 2 comments |
headers
Francisco Vides Fernández | 17 May 23:04

Connection to database via JDBC and classpath

Hello everyone

I intend to use ABCL in one of my projects. I've started to connectiing to a postgresq database via jdbc. I've tried something like:

-------8<-------
(add-to-classpath
 (merge-pathnames #p".m2/repository/postgresql/postgresql/8.4-702.jdbc4/postgresql-8.4-702.jdbc4.jar"
          (user-homedir-pathname)))

(jstatic "forName" "java.lang.Class"  "org.postgresql.Driver")
-------8<-------

But it always returns
-------8<-------
Java exception 'java.lang.ClassNotFoundException: org.postgresql.Driver'.
   [Condition of type JAVA-EXCEPTION]
-------8<-------
The jar file exists, and has the proper class inside. I've read the manual, and googled a bit, but still get the same error. I'm using Ubuntu Linux,  with OpenJDK 1.6.0_24, and the latest and greatest ABCL downloaded as a binary from ABCL website. Can someone point me what I'm doing wrong?

Many thanks for this great project!!

-- -- +----------------- | Francisco Vides Fernández <fvides-PyEnbPJjwG7ZfSdNxihkMA@public.gmane.org> | Director Ejecutivo | Teléfono fijo: 952 60 29 59 | Fax: 952 60 29 59 | Neoclinic http://www.neoclinic.es/ +------ 
_______________________________________________
armedbear-devel mailing list
armedbear-devel@...
http://lists.common-lisp.net/cgi-bin/mailman/listinfo/armedbear-devel
Permalink | Reply | 26 comments |
headers
Paul Nathan | 12 May 06:06
Gravatar

ABCL has an incorrect belief about hostname and cpu in its fasl storage

Dear all,

I installed Armed Bear Common Lisp 1.0.1-svn-13750-13751 in order to run it on my OSX 10.6 (Snow Leopard)
64-bit system (Darwin 10.8.0 Darwin Kernel Version 10.8.0: Tue Jun  7 16:32:41 PDT 2011;
root:xnu-1504.15.3~1/RELEASE_X86_64 x86_64), for the purpose of executing cl-test-grid.

However, I observed that the fasls were being stored in ~/.cache/common-lisp/abcl-1.0.1-svn-13750-13751-fasl38-solaris-x86

You will quickly note that my system is neither solaris nor x86. 

However, I checked some of the environment settings:

 java -jar abcl.jar 
Armed Bear Common Lisp 1.0.1-svn-13750-13751
Java 1.6.0_31 Apple Inc.
Java HotSpot(TM) 64-Bit Server VM
Low-level initialization completed in 0.619 seconds.
Startup completed in 1.511 seconds.
Type ":help" for a list of available commands.
CL-USER(1): *features*
(:JAVA-1.6 :ARMEDBEAR :ABCL :COMMON-LISP :ANSI-CL :UNIX :DARWIN :CDR6)
CL-USER(2): (machine-instance)
"elendil.local"
CL-USER(3): (machine-type)
"X86_64"
CL-USER(4): (software-type)
"Mac OS X"
CL-USER(5): (software-version)
"10.6.8"
CL-USER(6): (machine-version)
NIL

And they turn out correct.

I am not a regular ABCL user, so pardon me if this is already known.  If an OSX Snow Leopard system is not
available for testing, I volunteer my time and machine to test a patch.

Regards,
Paul Nathan
Permalink | Reply | 4 comments |
headers
Santiago Carbonell | 13 May 21:00
Picon

how to redirect format function to a socket stream

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
_______________________________________________
armedbear-devel mailing list
armedbear-devel@...
http://lists.common-lisp.net/cgi-bin/mailman/listinfo/armedbear-devel
Permalink | Reply | 2 comments |
headers
aditya siram | 8 May 20:06
Picon

Error building abcl-servet

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
Permalink | Reply | 6 comments |
headers
wl chiu | 26 Apr 14:47

*load-pathname* with incorrect value


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
Permalink | Reply | 2 comments |
headers
wl chiu | 25 Apr 12:47

Funny behavior about flet after compilation.

Hi dear devs,

I encountered some funny behaviour between compiled and interpreted
code with flet. I'm not sure if this is a duplicate bug?

-------- flet-bug.lisp --------------

(defun foo (x)
  (print x))

(defun test1 ()
  (flet ((foo1 ()
           (foo 3)))
    (foo1)))

(defun test2 ()
  (flet ((foo ()
           (foo 3)))
    (foo)))

------------------------------------

We compile the following file,

  (compile-file "c:/me/temp/flet-bug.lisp")
  ; Compiling C:/me/temp/flet-bug.lisp ...

  ; (DEFUN FOO ...)

  ; (DEFUN TEST1 ...)

  ; (DEFUN TEST2 ...)

  ; Wrote c:/me/temp/flet-bug.abcl (2.62 seconds)


Then either load it interpreted or compiled. Interpreted, everything's
fine:

  > (load "c:/me/temp/flet-bug.lisp")
  T
  > (test1)
  

  3 

  3
  > (test2)
  

  3 

  3

Compiled, we get an error in test2:

  > (load "c:/me/temp/flet-bug.abcl")
  T
  > (test1)
  

  3 

  3
  > (test2)
  ; Evaluation aborted on #<PROGRAM-ERROR {797E7B}>.


The stack trace for this is:

    Wrong number of arguments for #<FOO {CCA5B9}>.
       [Condition of type PROGRAM-ERROR]
    
    Restarts:
     0: [RETRY] Retry SLIME REPL evaluation request.
     1: [*ABORT] Return to SLIME's top level.
     2: [ABORT] Abort thread.
    
    Backtrace:
      0: (#<FUNCTION {490A12}> #<PROGRAM-ERROR {19430CA}> #<FUNCTION {490A12}>)
      1: (APPLY #<FUNCTION {490A12}> (#<PROGRAM-ERROR {19430CA}> #<FUNCTION {490A12}>))
      2: (SYSTEM::RUN-HOOK SYSTEM::*INVOKE-DEBUGGER-HOOK* #<PROGRAM-ERROR {19430CA}> #<FUNCTION {490A12}>)
      3: (INVOKE-DEBUGGER #<PROGRAM-ERROR {19430CA}>)
      4: org.armedbear.lisp.Lisp.error(Lisp.java:381)
      5: org.armedbear.lisp.Function.execute(Function.java:312)
      6: org.armedbear.lisp.Primitive.execute(Primitive.java:113)
      7: (FOO 3)
      8: (TEST2)
      9: (SYSTEM::%EVAL (TEST2))
     10: (EVAL (TEST2))
     11: (SWANK::EVAL-REGION "(test2)

         ")
     ... etc ...


Thanks for your attention,

Wei-Lun Chiu
_______________________________________________
armedbear-devel mailing list
armedbear-devel@...
http://lists.common-lisp.net/cgi-bin/mailman/listinfo/armedbear-devel
Permalink | Reply | 0 comments |
headers
wl chiu | 25 Apr 12:56

Package redefinition issue in REPL.

Hello dear developers,

I' just experienced an odd issue with defpackage.  It looked like the package will not be modified if I call defpackage again.

For example, I define a package called "a-package".  After a while I wanted to export a function that I've just implemented called "a-new-foo".  Naturally I would add a new entry under the :export section of defpackage, and then eval the expression again.  However, I still cannot access "a-new-foo" as the REPL gives me "such symbol is not external of package [a-package]" error message.

Please advice and many thanks,

Wei-Lun Chiu


_______________________________________________
armedbear-devel mailing list
armedbear-devel@...
http://lists.common-lisp.net/cgi-bin/mailman/listinfo/armedbear-devel
Permalink | Reply | 8 comments |
headers
aditya siram | 17 Apr 00:00
Picon

SLIME reconnection on ABCL 1.1.0-dev fails

Hi all,
If I connect to a repl with M-x slime , disconnect using M-x
slime-quit-lisp and reconnect it loads the fasls and then fails with:
WARNING:
#<THREAD "interpreter" {1F873DD}>: Debugger invoked on condition of
type SIMPLE-ERROR

#<THREAD "interpreter" {1F873DD}>: Debugger invoked on condition of
type SIMPLE-ERROR

#<THREAD "interpreter" {1F873DD}>: Debugger invoked on condition of
type SIMPLE-ERROR

#<THREAD "interpreter" {1F873DD}>: Debugger invoked on condition of
type SIMPLE-ERROR

#<THREAD "interpreter" {1F873DD}>: Debugger invoked on condition of
type SIMPLE-ERROR

#<THREAD "interpreter" {1F873DD}>: Debugger invoked on condition of
type SIMPLE-ERROR

#<THREAD "interpreter" {1F873DD}>: Debugger invoked on condition of
type SIMPLE-ERROR

#<THREAD "interpreter" {1F873DD}>: Debugger invoked on condition of
type SIMPLE-ERROR

#<THREAD "interpreter" {1F873DD}>: Debugger invoked on condition of
type SIMPLE-ERROR

#<THREAD "interpreter" {1F873DD}>: Debugger invoked on condition of
type SIMPLE-ERROR

Maximum error depth exceeded (11 nested errors).
CL-USER(2): CL-USER(2):

The prompt "CL-USER(2)" works but emacs stays locked with a "Polling
"/tmp/slime.2616".. (Abort with `M-x slime-abort-connection'.)"
One possible indication of the problem is that there is no file
/tmp/slime.2616.

If I delete the fasls and start slime, it re-compiles them all and starts fine.

This does not happen with abcl-1.0.1.

Thanks!
-deech
Permalink | Reply | 22 comments |

Gmane