armedbear-devel

armedbear-devel@common-lisp.net

1 participants
1200 discussions

[armedbear-devel] BigNum question
by archisman rudra 09 Oct '12

09 Oct '12

Is this correct behavior? CL-USER(17): (type-of 1234567898723618080928927362387) (INTEGER 2147483648) The relevant java code is in Bignum.java: (the value field is a java BigInteger) @Override public LispObject typeOf() { if (value.signum() > 0) return list(Symbol.INTEGER, new Bignum((long)Integer.MAX_VALUE + 1)); return Symbol.BIGNUM; } for comparison: CL-USER(23): (type-of -1234567898723618080928927362387) BIGNUM which makes intuitive sense.

4 9

[armedbear-devel] Question about jnew-runtime-class
by archisman rudra 09 Oct '12

09 Oct '12

Hi, hopefully this is the correct list. If not please let me know. Background: I am trying to use abcl to generate jars to send off to a hadoop cluster for execution. The svn version of the jnew-runtime-class does not store the actual method bodies in the generated class file, but rather loads the generated class file and sets the relevant field. Here is the relevant code : (multiple-value-bind (class-file method-implementation-fields) (apply #'java::%jnew-runtime-class class-name stream args) (sys::put-memory-function memory-class-loader class-name (sys::%get-output-stream-bytes stream)) * (let ((jclass (java:jcall "loadClass" memory-class-loader class-name)))* * (dolist (method method-implementation-fields)* * (setf (java:jfield jclass (car method)) (cdr method)))* jclass)))) This means that the generated jar file cannot be easily used from standard java code. I would like to add some code in the static initialization block of generated class file to do something equivalent. I will have to save the lambda expression for the method and have been experimenting as follows: (defvar *cf*) (defvar *mif*) (with-open-file (stream "test.class" :direction :output :element-type '(unsigned-byte 8)) (multiple-value-bind (class-file method-implementation-field) (java::%jnew-runtime-class "test" stream :methods `(("forty_two_method1" :int () ,(lambda (this) 42)))) (setf *cf* class-file) (setf *mif* method-implementation-field))) (with-open-file (stream "test_forms" :direction :output) (dolist (m *mif*) (system:dump-form (list (car m) (function-lambda-expression (cdr m))) stream))) This assumes that the lambda expression does not refer to any variable or user defined function, but perhaps the asdf-jar contrib might help here. I was going to write the relevant code and start using it for my project, but I was wondering if I am duplicating work that others have already done or are doing and whether there are other libraries (jffli perhaps, I am not very familiar with it) that have similar functionality. Also if there are other interactions with other parts of the system that I am perhaps missing. I would e grateful for any advice. Archi

2 3

[armedbear-devel] Status of my work towards abcl-1.1
by Mark Evenson 08 Oct '12

08 Oct '12

After much banging around against issues involved in merging PATHNAME objects when the defaults points to a JAR-PATHNAME, I think I am finally converging on a solution. I have [committed a design document][1] that describes my approach. The main user visible result here would be the successful location and retrieval from the network of the JNA component necessary for loading CFFI. [1]: http://trac.common-lisp.net/armedbear/changeset/14172 The gist of the problem lies in that on non-Windows, the default DEVICE component is NIL, which when merged with a JAR-PATHNAME which represents the filesystem location of the jar archive in DEVICE, results in some rather bad interactions. At the top of problem, on non-Windows when the defaults contain a JAR-PATHNAME: 1. (truename #p"/") fails. 2. Loading ASDF systems from jar files which declare dependencies on other ASDF systems will fail. My proposed solution is to: 1. On non-Windows, TRUENAME for a non-JAR-PATHNAME will set the DEVICE of the result to :UNSPECIFIC. 2. Treat a JAR-PATHNAME as implicitly having a different HOST from normal file PATHNAME, so that the result of a merge won't fill in a DEVICE with the wrong "default device for the host" in the sense of the fourth paragraph in the [CLHS description of MERGE-PATHNAMES][2] (the paragraph beginning "If the PATHNAME explicitly specifies a host and not a device…"). [2]: http://www.lispworks.com/documentation/HyperSpec/Body/f_merge_.htm My (uncommitted) patches seem to resolve all the problems, and work on both Windows and non-Windows. I still have two remaining ANSI failures that the changes introduced, involving the value of *COMPILE-FILE-TRUENAME* for which I need to rewrite the form which the compiler dumps pathnames from #p"/foo/bar" to the #p(:directory (:absolute "foo") :name "bar") form. Somehow, the new form isn't being read correctly (Erik I could use your advice here). In addition, since namestrings are no longer always roundtrippable as they discard an :UNSPECIFIC DEVICE, I've had to change a bit of code in the compiler and the Pathname implementation which assumed otherwise. A cleaner solution would probalby have been to actually populate the HOST field with a type nonce, like SBCL does. But we already use HOST to store information for a URL-PATHNAME. And given the reality that we should release an abcl-1.1.0 as soon as realistically possible, when I estimated that going down this route would change much more code I opted for the current solution where we take a cut at "Do What I Mean" reasoning we could potentially retrofit this with HOST containing various HOST forms for abcl-1.2.x if enough objections were raised. Comments solicited. -- "A screaming comes across the sky. It has happened before, but there is nothing to compare it to now."

1 0

[armedbear-devel] Fixes to trunk for cl-test-grid regressions
by Erik Huelsmann 04 Oct '12

04 Oct '12

Hi, Last two weeks I've committed several fixes for regressions reported by cl-test-grid on http://common-lisp.net/project/cl-test-grid/abcl.html. The page might be updated today or tomorrow based on r14163 (I think). Today I committed a fix for CL-ROUTES, which means the MAPPER-TEST-SUITE regressions shown in that page (even after the update) have also been fixed. That's it for the update for now :-) Bye, Erik.

1 0

[armedbear-devel] Unbound initargs slot in slot-definitions
by Stas Boukarev 30 Sep '12

30 Sep '12

Having two classes: (defclass slot-d-1 (mop:standard-direct-slot-definition) ()) (defclass slot-d-2 (mop:standard-direct-slot-definition) (a)) (slot-boundp (make-instance 'slot-d-2) 'sys::initargs) => T (slot-boundp (make-instance 'slot-d-2) 'sys::initargs) => NIL So, having a slot makes initargs unbound. Below is the actual code which suffers from it: (defpackage test (:use :cl :mop)) (in-package test) (defclass storable-class (standard-class) ()) (defmethod validate-superclass ((class standard-class) (superclass storable-class)) t) (defmethod validate-superclass ((class storable-class) (superclass standard-class)) t) (defclass storable-direct-slot-definition (standard-direct-slot-definition) ((storep :initarg :storep :initform t :reader store-slot-p))) (defmethod direct-slot-definition-class ((class storable-class) &key) (find-class 'storable-direct-slot-definition)) ;;; (defclass identifiable () ((id :accessor id :initform nil :storep nil)) (:metaclass storable-class)) The last form receives an error: The slot INITARGS is unbound in the object #<STORABLE-DIRECT-SLOT-DEFINITION {34C1EFE7}>. -- With best regards, Stas.

2 6

[armedbear-devel] Update to code for running ABCL on the Cygwin version of Emacs
by Mark Evenson 24 Sep '12

24 Sep '12

The change to SLIME on 2011-12-24 changed the way that the inferior Lisp image is invoked, breaking [my previous instructions on how to get SLIME working under Cygwin][1]. After a bit of wrangling, I have [posted modified code to get ABCL working under the Cygwin Emacs again, changing the canonical location should further updating be necessary][2]. I decided to implement my changed version as a "code walker" that transforms the s-expr emitted by SLIME-INIT-COMMAND, utilising the ability of SLIME-LISP-IMPLEMENTATIONS to specify an init function. I reasoned that this would be better than an Emacs DEFADVICE as the .emacs initialization can now be reasonably shared between different Lisp implementations. DEFADVICE might have been a bit cleaner, but it would probably break just as easily in the future the next someone changes the way SLIME invokes things. For those suitably inclined, comments on this implementation choice would be welcome, as I am not the most experienced elisp hacker. Bug reports as to the new procedure are solicited if it fails to work for you. [1]: http://abcl-dev.blogspot.co.at/2010/05/running-slime-under-cygwin-with-abcl… [2]: http://slack.net/~evenson/abcl/slime-under-cygwin.html -- "A screaming comes across the sky. It has happened before but there is nothing to compare to it now."

1 0

[armedbear-devel] Long stack overflow stack trace
by Theam Yong Chew 22 Sep '12

22 Sep '12

Hi devs, I'm getting a really unwieldy stack trace with what I think is a simple error. Starting from this file, ======== Debug.java ============ // Some imports might be a bit redundant, copy & pasted... import org.armedbear.lisp.Interpreter; import org.armedbear.lisp.Package; import org.armedbear.lisp.Packages; import org.armedbear.lisp.Symbol; import org.armedbear.lisp.JavaObject; public class Debug { public static Interpreter getOrCreateInterpreter(){ if (null == Interpreter.interpreter) { return Interpreter.createInstance(); } else { return Interpreter.interpreter; } } public static void main(String[] args) throws Exception { Interpreter in = getOrCreateInterpreter(); in.eval("(load \"non-existent-file.lisp\")"); System.exit(0); } } ==================== If I now attempt to run it, $ javac -cp ../jars/abcl.jar Debug.java $ java -cp ../jars/abcl.jar:. Debug I get the stack overflow & long stack trace shown below. What gives? What's a better way to avoid this type of error? I'm running out of an old svn tree: Armed Bear Common Lisp 1.1.0-dev-svn-13990 Java 1.6.0_18 Sun Microsystems Inc. OpenJDK 64-Bit Server VM Incidentally, I have another question concerning Interpreter.createInstance. Calling it a more than once results in a return value of null. I can see this behaviour in the source. Why is this? Yong The long stack trace (with minor edits to tidy up the console output): $ java -cp ../jars/abcl.jar:. Debug #<THREAD "main" {4B5386C2}>: Unhandled condition of type FILE-ERROR: #<THREAD "main" {4B5386C2}>: Unhandled condition of type SIMPLE-ERROR: #<THREAD "main" {4B5386C2}>: Unhandled condition of type SIMPLE-ERROR: #<THREAD "main" {4B5386C2}>: Unhandled condition of type SIMPLE-ERROR: #<THREAD "main" {4B5386C2}>: Unhandled condition of type SIMPLE-ERROR: #<THREAD "main" {4B5386C2}>: Unhandled condition of type SIMPLE-ERROR: #<THREAD "main" {4B5386C2}>: Unhandled condition of type SIMPLE-ERROR: #<THREAD "main" {4B5386C2}>: Unhandled condition of type SIMPLE-ERROR: #<THREAD "main" {4B5386C2}>: Unhandled condition of type SIMPLE-ERROR: #<THREAD "main" {4B5386C2}>: Unhandled condition of type SIMPLE-ERROR: Exception in thread "main" java.lang.StackOverflowError at org.armedbear.lisp.Primitives$sf_block.execute(Primitives.java:3733) at org.armedbear.lisp.Lisp.eval(Lisp.java:505) at org.armedbear.lisp.Lisp.progn(Lisp.java:684) at org.armedbear.lisp.Closure.execute(Closure.java:211) at org.armedbear.lisp.Closure.execute(Closure.java:139) at org.armedbear.lisp.Symbol.execute(Symbol.java:802) at org.armedbear.lisp.LispThread.execute(LispThread.java:649) at org.armedbear.lisp.format_65.execute(format.lisp:379) at org.armedbear.lisp.Symbol.execute(Symbol.java:802) at org.armedbear.lisp.LispThread.execute(LispThread.java:649) at org.armedbear.lisp.format_183.execute(format.lisp:1740) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:121) at org.armedbear.lisp.Symbol.execute(Symbol.java:825) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.format_182.execute(format.lisp:1725) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:135) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.Lisp.funcall(Lisp.java:178) at org.armedbear.lisp.Primitives$pf_apply.execute(Primitives.java:2853) at org.armedbear.lisp.Primitive.execute(Primitive.java:148) at org.armedbear.lisp.Symbol.execute(Symbol.java:837) at org.armedbear.lisp.Condition.printObject(Condition.java:205) at org.armedbear.lisp.Lisp.format(Lisp.java:2049) at org.armedbear.lisp.Primitives$pf__format._format(Primitives.java:1702) at org.armedbear.lisp.Primitives$pf__format.execute(Primitives.java:1679) at org.armedbear.lisp.Symbol.execute(Symbol.java:837) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.signal_2.execute(signal.lisp:63) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:121) at org.armedbear.lisp.Symbol.execute(Symbol.java:825) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.clos_28.execute(clos.lisp:222) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:121) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.Lisp.funcall(Lisp.java:176) at org.armedbear.lisp.Primitives$pf_apply.execute(Primitives.java:2835) at org.armedbear.lisp.Symbol.execute(Symbol.java:825) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.clos_248.execute(clos.lisp:2273) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.clos_234.execute(clos.lisp:2052) at org.armedbear.lisp.FuncallableStandardObject.execute(FuncallableStandardObject.java:106) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.print_8.execute(print.lisp:127) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.print_14.execute(print.lisp:281) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.print_16.execute(print.lisp:301) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.pprint_153.execute(pprint.lisp:718) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:109) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.format_190.execute(format.lisp:1894) at org.armedbear.lisp.LispThread.execute(LispThread.java:719) at org.armedbear.lisp.format_184.execute(format.lisp:1754) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.format_184.execute(format.lisp:1754) at org.armedbear.lisp.Symbol.execute(Symbol.java:837) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.format_183.execute(format.lisp:1740) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:121) at org.armedbear.lisp.Symbol.execute(Symbol.java:825) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.format_182.execute(format.lisp:1725) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:135) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.Lisp.funcall(Lisp.java:178) at org.armedbear.lisp.Primitives$pf_apply.execute(Primitives.java:2853) at org.armedbear.lisp.Primitive.execute(Primitive.java:148) at org.armedbear.lisp.Symbol.execute(Symbol.java:837) at org.armedbear.lisp.Condition.printObject(Condition.java:205) at org.armedbear.lisp.Lisp.format(Lisp.java:2049) at org.armedbear.lisp.Primitives$pf__format._format(Primitives.java:1702) at org.armedbear.lisp.Primitives$pf__format.execute(Primitives.java:1679) at org.armedbear.lisp.Symbol.execute(Symbol.java:837) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.signal_2.execute(signal.lisp:63) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:121) at org.armedbear.lisp.Symbol.execute(Symbol.java:825) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.clos_28.execute(clos.lisp:222) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:121) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.Lisp.funcall(Lisp.java:176) at org.armedbear.lisp.Primitives$pf_apply.execute(Primitives.java:2835) at org.armedbear.lisp.Symbol.execute(Symbol.java:825) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.clos_248.execute(clos.lisp:2273) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.clos_234.execute(clos.lisp:2052) at org.armedbear.lisp.FuncallableStandardObject.execute(FuncallableStandardObject.java:106) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.print_8.execute(print.lisp:127) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.print_14.execute(print.lisp:281) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.print_16.execute(print.lisp:301) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.pprint_153.execute(pprint.lisp:718) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:109) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.format_190.execute(format.lisp:1894) at org.armedbear.lisp.LispThread.execute(LispThread.java:719) at org.armedbear.lisp.format_184.execute(format.lisp:1754) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.format_184.execute(format.lisp:1754) at org.armedbear.lisp.Symbol.execute(Symbol.java:837) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.format_183.execute(format.lisp:1740) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:121) at org.armedbear.lisp.Symbol.execute(Symbol.java:825) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.format_182.execute(format.lisp:1725) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:135) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.Lisp.funcall(Lisp.java:178) at org.armedbear.lisp.Primitives$pf_apply.execute(Primitives.java:2853) at org.armedbear.lisp.Primitive.execute(Primitive.java:148) at org.armedbear.lisp.Symbol.execute(Symbol.java:837) at org.armedbear.lisp.Condition.printObject(Condition.java:205) at org.armedbear.lisp.Lisp.format(Lisp.java:2049) at org.armedbear.lisp.Primitives$pf__format._format(Primitives.java:1702) at org.armedbear.lisp.Primitives$pf__format.execute(Primitives.java:1679) at org.armedbear.lisp.Symbol.execute(Symbol.java:837) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.signal_2.execute(signal.lisp:63) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:121) at org.armedbear.lisp.Symbol.execute(Symbol.java:825) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.clos_28.execute(clos.lisp:222) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:121) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.Lisp.funcall(Lisp.java:176) at org.armedbear.lisp.Primitives$pf_apply.execute(Primitives.java:2835) at org.armedbear.lisp.Symbol.execute(Symbol.java:825) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.clos_248.execute(clos.lisp:2273) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.clos_234.execute(clos.lisp:2052) at org.armedbear.lisp.FuncallableStandardObject.execute(FuncallableStandardObject.java:106) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.print_8.execute(print.lisp:127) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.print_14.execute(print.lisp:281) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.print_16.execute(print.lisp:301) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.pprint_153.execute(pprint.lisp:718) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:109) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.format_190.execute(format.lisp:1894) at org.armedbear.lisp.LispThread.execute(LispThread.java:719) at org.armedbear.lisp.format_184.execute(format.lisp:1754) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.format_184.execute(format.lisp:1754) at org.armedbear.lisp.Symbol.execute(Symbol.java:837) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.format_183.execute(format.lisp:1740) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:121) at org.armedbear.lisp.Symbol.execute(Symbol.java:825) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.format_182.execute(format.lisp:1725) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:135) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.Lisp.funcall(Lisp.java:178) at org.armedbear.lisp.Primitives$pf_apply.execute(Primitives.java:2853) at org.armedbear.lisp.Primitive.execute(Primitive.java:148) at org.armedbear.lisp.Symbol.execute(Symbol.java:837) at org.armedbear.lisp.Condition.printObject(Condition.java:205) at org.armedbear.lisp.Lisp.format(Lisp.java:2049) at org.armedbear.lisp.Primitives$pf__format._format(Primitives.java:1702) at org.armedbear.lisp.Primitives$pf__format.execute(Primitives.java:1679) at org.armedbear.lisp.Symbol.execute(Symbol.java:837) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.signal_2.execute(signal.lisp:63) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:121) at org.armedbear.lisp.Symbol.execute(Symbol.java:825) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.clos_28.execute(clos.lisp:222) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:121) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.Lisp.funcall(Lisp.java:176) at org.armedbear.lisp.Primitives$pf_apply.execute(Primitives.java:2835) at org.armedbear.lisp.Symbol.execute(Symbol.java:825) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.clos_248.execute(clos.lisp:2273) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.clos_234.execute(clos.lisp:2052) at org.armedbear.lisp.FuncallableStandardObject.execute(FuncallableStandardObject.java:106) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.print_8.execute(print.lisp:127) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.print_14.execute(print.lisp:281) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.print_16.execute(print.lisp:301) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.pprint_153.execute(pprint.lisp:718) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:109) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.format_190.execute(format.lisp:1894) at org.armedbear.lisp.LispThread.execute(LispThread.java:719) at org.armedbear.lisp.format_184.execute(format.lisp:1754) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.format_184.execute(format.lisp:1754) at org.armedbear.lisp.Symbol.execute(Symbol.java:837) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.format_183.execute(format.lisp:1740) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:121) at org.armedbear.lisp.Symbol.execute(Symbol.java:825) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.format_182.execute(format.lisp:1725) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:135) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.Lisp.funcall(Lisp.java:178) at org.armedbear.lisp.Primitives$pf_apply.execute(Primitives.java:2853) at org.armedbear.lisp.Primitive.execute(Primitive.java:148) at org.armedbear.lisp.Symbol.execute(Symbol.java:837) at org.armedbear.lisp.Condition.printObject(Condition.java:205) at org.armedbear.lisp.Lisp.format(Lisp.java:2049) at org.armedbear.lisp.Primitives$pf__format._format(Primitives.java:1702) at org.armedbear.lisp.Primitives$pf__format.execute(Primitives.java:1679) at org.armedbear.lisp.Symbol.execute(Symbol.java:837) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.signal_2.execute(signal.lisp:63) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:121) at org.armedbear.lisp.Symbol.execute(Symbol.java:825) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.clos_28.execute(clos.lisp:222) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:121) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.Lisp.funcall(Lisp.java:176) at org.armedbear.lisp.Primitives$pf_apply.execute(Primitives.java:2835) at org.armedbear.lisp.Symbol.execute(Symbol.java:825) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.clos_248.execute(clos.lisp:2273) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.clos_234.execute(clos.lisp:2052) at org.armedbear.lisp.FuncallableStandardObject.execute(FuncallableStandardObject.java:106) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.print_8.execute(print.lisp:127) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.print_14.execute(print.lisp:281) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.print_16.execute(print.lisp:301) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.pprint_153.execute(pprint.lisp:718) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:109) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.format_190.execute(format.lisp:1894) at org.armedbear.lisp.LispThread.execute(LispThread.java:719) at org.armedbear.lisp.format_184.execute(format.lisp:1754) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.format_184.execute(format.lisp:1754) at org.armedbear.lisp.Symbol.execute(Symbol.java:837) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.format_183.execute(format.lisp:1740) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:121) at org.armedbear.lisp.Symbol.execute(Symbol.java:825) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.format_182.execute(format.lisp:1725) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:135) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.Lisp.funcall(Lisp.java:178) at org.armedbear.lisp.Primitives$pf_apply.execute(Primitives.java:2853) at org.armedbear.lisp.Primitive.execute(Primitive.java:148) at org.armedbear.lisp.Symbol.execute(Symbol.java:837) at org.armedbear.lisp.Condition.printObject(Condition.java:205) at org.armedbear.lisp.Lisp.format(Lisp.java:2049) at org.armedbear.lisp.Primitives$pf__format._format(Primitives.java:1702) at org.armedbear.lisp.Primitives$pf__format.execute(Primitives.java:1679) at org.armedbear.lisp.Symbol.execute(Symbol.java:837) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.signal_2.execute(signal.lisp:63) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:121) at org.armedbear.lisp.Symbol.execute(Symbol.java:825) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.clos_28.execute(clos.lisp:222) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:121) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.Lisp.funcall(Lisp.java:176) at org.armedbear.lisp.Primitives$pf_apply.execute(Primitives.java:2835) at org.armedbear.lisp.Symbol.execute(Symbol.java:825) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.clos_248.execute(clos.lisp:2273) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.clos_234.execute(clos.lisp:2052) at org.armedbear.lisp.FuncallableStandardObject.execute(FuncallableStandardObject.java:106) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.print_8.execute(print.lisp:127) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.print_14.execute(print.lisp:281) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.print_16.execute(print.lisp:301) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.pprint_153.execute(pprint.lisp:718) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:109) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.format_190.execute(format.lisp:1894) at org.armedbear.lisp.LispThread.execute(LispThread.java:719) at org.armedbear.lisp.format_184.execute(format.lisp:1754) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.format_184.execute(format.lisp:1754) at org.armedbear.lisp.Symbol.execute(Symbol.java:837) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.format_183.execute(format.lisp:1740) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:121) at org.armedbear.lisp.Symbol.execute(Symbol.java:825) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.format_182.execute(format.lisp:1725) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:135) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.Lisp.funcall(Lisp.java:178) at org.armedbear.lisp.Primitives$pf_apply.execute(Primitives.java:2853) at org.armedbear.lisp.Primitive.execute(Primitive.java:148) at org.armedbear.lisp.Symbol.execute(Symbol.java:837) at org.armedbear.lisp.Condition.printObject(Condition.java:205) at org.armedbear.lisp.Lisp.format(Lisp.java:2049) at org.armedbear.lisp.Primitives$pf__format._format(Primitives.java:1702) at org.armedbear.lisp.Primitives$pf__format.execute(Primitives.java:1679) at org.armedbear.lisp.Symbol.execute(Symbol.java:837) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.signal_2.execute(signal.lisp:63) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:121) at org.armedbear.lisp.Symbol.execute(Symbol.java:825) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.clos_28.execute(clos.lisp:222) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:121) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.Lisp.funcall(Lisp.java:176) at org.armedbear.lisp.Primitives$pf_apply.execute(Primitives.java:2835) at org.armedbear.lisp.Symbol.execute(Symbol.java:825) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.clos_248.execute(clos.lisp:2273) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.clos_234.execute(clos.lisp:2052) at org.armedbear.lisp.FuncallableStandardObject.execute(FuncallableStandardObject.java:106) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.print_8.execute(print.lisp:127) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.print_14.execute(print.lisp:281) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.print_16.execute(print.lisp:301) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.pprint_153.execute(pprint.lisp:718) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:109) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.format_190.execute(format.lisp:1894) at org.armedbear.lisp.LispThread.execute(LispThread.java:719) at org.armedbear.lisp.format_184.execute(format.lisp:1754) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.format_184.execute(format.lisp:1754) at org.armedbear.lisp.Symbol.execute(Symbol.java:837) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.format_183.execute(format.lisp:1740) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:121) at org.armedbear.lisp.Symbol.execute(Symbol.java:825) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.format_182.execute(format.lisp:1725) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:135) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.Lisp.funcall(Lisp.java:178) at org.armedbear.lisp.Primitives$pf_apply.execute(Primitives.java:2853) at org.armedbear.lisp.Primitive.execute(Primitive.java:148) at org.armedbear.lisp.Symbol.execute(Symbol.java:837) at org.armedbear.lisp.Condition.printObject(Condition.java:205) at org.armedbear.lisp.Lisp.format(Lisp.java:2049) at org.armedbear.lisp.Primitives$pf__format._format(Primitives.java:1702) at org.armedbear.lisp.Primitives$pf__format.execute(Primitives.java:1679) at org.armedbear.lisp.Symbol.execute(Symbol.java:837) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.signal_2.execute(signal.lisp:63) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:121) at org.armedbear.lisp.Symbol.execute(Symbol.java:825) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.clos_28.execute(clos.lisp:222) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:121) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.Lisp.funcall(Lisp.java:176) at org.armedbear.lisp.Primitives$pf_apply.execute(Primitives.java:2835) at org.armedbear.lisp.Symbol.execute(Symbol.java:825) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.clos_248.execute(clos.lisp:2273) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.clos_234.execute(clos.lisp:2052) at org.armedbear.lisp.FuncallableStandardObject.execute(FuncallableStandardObject.java:106) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.print_8.execute(print.lisp:127) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.print_14.execute(print.lisp:281) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.print_16.execute(print.lisp:301) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.pprint_153.execute(pprint.lisp:718) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:109) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.format_190.execute(format.lisp:1894) at org.armedbear.lisp.LispThread.execute(LispThread.java:719) at org.armedbear.lisp.format_184.execute(format.lisp:1754) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.format_184.execute(format.lisp:1754) at org.armedbear.lisp.Symbol.execute(Symbol.java:837) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.format_183.execute(format.lisp:1740) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:121) at org.armedbear.lisp.Symbol.execute(Symbol.java:825) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.format_182.execute(format.lisp:1725) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:135) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.Lisp.funcall(Lisp.java:178) at org.armedbear.lisp.Primitives$pf_apply.execute(Primitives.java:2853) at org.armedbear.lisp.Primitive.execute(Primitive.java:148) at org.armedbear.lisp.Symbol.execute(Symbol.java:837) at org.armedbear.lisp.Condition.printObject(Condition.java:205) at org.armedbear.lisp.Lisp.format(Lisp.java:2049) at org.armedbear.lisp.Primitives$pf__format._format(Primitives.java:1702) at org.armedbear.lisp.Primitives$pf__format.execute(Primitives.java:1679) at org.armedbear.lisp.Symbol.execute(Symbol.java:837) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.signal_2.execute(signal.lisp:63) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:121) at org.armedbear.lisp.Symbol.execute(Symbol.java:825) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.clos_28.execute(clos.lisp:222) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:121) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.Lisp.funcall(Lisp.java:176) at org.armedbear.lisp.Primitives$pf_apply.execute(Primitives.java:2835) at org.armedbear.lisp.Symbol.execute(Symbol.java:825) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.clos_248.execute(clos.lisp:2273) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.clos_234.execute(clos.lisp:2052) at org.armedbear.lisp.FuncallableStandardObject.execute(FuncallableStandardObject.java:106) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.print_8.execute(print.lisp:127) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.print_14.execute(print.lisp:281) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.print_16.execute(print.lisp:301) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.pprint_153.execute(pprint.lisp:718) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:109) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.format_190.execute(format.lisp:1894) at org.armedbear.lisp.LispThread.execute(LispThread.java:719) at org.armedbear.lisp.format_184.execute(format.lisp:1754) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.format_184.execute(format.lisp:1754) at org.armedbear.lisp.Symbol.execute(Symbol.java:837) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.format_183.execute(format.lisp:1740) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:121) at org.armedbear.lisp.Symbol.execute(Symbol.java:825) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.format_182.execute(format.lisp:1725) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:135) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.Lisp.funcall(Lisp.java:178) at org.armedbear.lisp.Primitives$pf_apply.execute(Primitives.java:2853) at org.armedbear.lisp.Primitive.execute(Primitive.java:148) at org.armedbear.lisp.Symbol.execute(Symbol.java:837) at org.armedbear.lisp.Condition.printObject(Condition.java:205) at org.armedbear.lisp.Lisp.format(Lisp.java:2049) at org.armedbear.lisp.Primitives$pf__format._format(Primitives.java:1702) at org.armedbear.lisp.Primitives$pf__format.execute(Primitives.java:1679) at org.armedbear.lisp.Symbol.execute(Symbol.java:837) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.signal_2.execute(signal.lisp:63) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:121) at org.armedbear.lisp.Symbol.execute(Symbol.java:825) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.clos_28.execute(clos.lisp:222) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:121) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.Lisp.funcall(Lisp.java:176) at org.armedbear.lisp.Primitives$pf_apply.execute(Primitives.java:2835) at org.armedbear.lisp.Symbol.execute(Symbol.java:825) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.clos_248.execute(clos.lisp:2273) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.clos_234.execute(clos.lisp:2052) at org.armedbear.lisp.FuncallableStandardObject.execute(FuncallableStandardObject.java:106) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.print_8.execute(print.lisp:127) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.print_14.execute(print.lisp:281) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.print_16.execute(print.lisp:301) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.pprint_153.execute(pprint.lisp:718) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:109) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.format_190.execute(format.lisp:1894) at org.armedbear.lisp.LispThread.execute(LispThread.java:719) at org.armedbear.lisp.format_184.execute(format.lisp:1754) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.format_184.execute(format.lisp:1754) at org.armedbear.lisp.Symbol.execute(Symbol.java:837) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.format_183.execute(format.lisp:1740) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:121) at org.armedbear.lisp.Symbol.execute(Symbol.java:825) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.format_182.execute(format.lisp:1725) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:135) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.Lisp.funcall(Lisp.java:178) at org.armedbear.lisp.Primitives$pf_apply.execute(Primitives.java:2853) at org.armedbear.lisp.Primitive.execute(Primitive.java:148) at org.armedbear.lisp.Symbol.execute(Symbol.java:837) at org.armedbear.lisp.Condition.printObject(Condition.java:205) at org.armedbear.lisp.Lisp.format(Lisp.java:2049) at org.armedbear.lisp.Primitives$pf__format._format(Primitives.java:1702) at org.armedbear.lisp.Primitives$pf__format.execute(Primitives.java:1679) at org.armedbear.lisp.Symbol.execute(Symbol.java:837) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.signal_2.execute(signal.lisp:63) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:121) at org.armedbear.lisp.Symbol.execute(Symbol.java:825) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.clos_28.execute(clos.lisp:222) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:121) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.Lisp.funcall(Lisp.java:176) at org.armedbear.lisp.Primitives$pf_apply.execute(Primitives.java:2835) at org.armedbear.lisp.Symbol.execute(Symbol.java:825) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.clos_248.execute(clos.lisp:2273) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.clos_234.execute(clos.lisp:2052) at org.armedbear.lisp.FuncallableStandardObject.execute(FuncallableStandardObject.java:106) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.print_8.execute(print.lisp:127) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.print_14.execute(print.lisp:281) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.print_16.execute(print.lisp:301) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.pprint_153.execute(pprint.lisp:718) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:109) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.format_190.execute(format.lisp:1894) at org.armedbear.lisp.LispThread.execute(LispThread.java:719) at org.armedbear.lisp.format_184.execute(format.lisp:1754) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.format_184.execute(format.lisp:1754) at org.armedbear.lisp.Symbol.execute(Symbol.java:837) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.format_183.execute(format.lisp:1740) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:121) at org.armedbear.lisp.Symbol.execute(Symbol.java:825) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.format_182.execute(format.lisp:1725) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:135) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.Lisp.funcall(Lisp.java:178) at org.armedbear.lisp.Primitives$pf_apply.execute(Primitives.java:2853) at org.armedbear.lisp.Primitive.execute(Primitive.java:148) at org.armedbear.lisp.Symbol.execute(Symbol.java:837) at org.armedbear.lisp.Condition.printObject(Condition.java:205) at org.armedbear.lisp.Lisp.format(Lisp.java:2049) at org.armedbear.lisp.Primitives$pf__format._format(Primitives.java:1702) at org.armedbear.lisp.Primitives$pf__format.execute(Primitives.java:1679) at org.armedbear.lisp.Symbol.execute(Symbol.java:837) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.signal_2.execute(signal.lisp:63) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:121) at org.armedbear.lisp.Symbol.execute(Symbol.java:825) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.clos_28.execute(clos.lisp:222) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:121) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.Lisp.funcall(Lisp.java:176) at org.armedbear.lisp.Primitives$pf_apply.execute(Primitives.java:2835) at org.armedbear.lisp.Symbol.execute(Symbol.java:825) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.clos_248.execute(clos.lisp:2273) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.clos_234.execute(clos.lisp:2052) at org.armedbear.lisp.FuncallableStandardObject.execute(FuncallableStandardObject.java:106) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.print_8.execute(print.lisp:127) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.print_14.execute(print.lisp:281) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.print_16.execute(print.lisp:301) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.pprint_153.execute(pprint.lisp:718) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:109) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.format_190.execute(format.lisp:1894) at org.armedbear.lisp.LispThread.execute(LispThread.java:719) at org.armedbear.lisp.format_184.execute(format.lisp:1754) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.format_184.execute(format.lisp:1754) at org.armedbear.lisp.Symbol.execute(Symbol.java:837) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.format_183.execute(format.lisp:1740) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:121) at org.armedbear.lisp.Symbol.execute(Symbol.java:825) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.format_182.execute(format.lisp:1725) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:135) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.Lisp.funcall(Lisp.java:178) at org.armedbear.lisp.Primitives$pf_apply.execute(Primitives.java:2853) at org.armedbear.lisp.Primitive.execute(Primitive.java:148) at org.armedbear.lisp.Symbol.execute(Symbol.java:837) at org.armedbear.lisp.Condition.printObject(Condition.java:205) at org.armedbear.lisp.Lisp.format(Lisp.java:2049) at org.armedbear.lisp.Primitives$pf__format._format(Primitives.java:1702) at org.armedbear.lisp.Primitives$pf__format.execute(Primitives.java:1679) at org.armedbear.lisp.Symbol.execute(Symbol.java:837) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.signal_2.execute(signal.lisp:63) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:121) at org.armedbear.lisp.Symbol.execute(Symbol.java:825) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.clos_28.execute(clos.lisp:222) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:121) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.Lisp.funcall(Lisp.java:176) at org.armedbear.lisp.Primitives$pf_apply.execute(Primitives.java:2835) at org.armedbear.lisp.Symbol.execute(Symbol.java:825) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.clos_248.execute(clos.lisp:2273) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.clos_234.execute(clos.lisp:2052) at org.armedbear.lisp.FuncallableStandardObject.execute(FuncallableStandardObject.java:106) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.print_8.execute(print.lisp:127) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.print_14.execute(print.lisp:281) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.print_16.execute(print.lisp:301) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.pprint_153.execute(pprint.lisp:718) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:109) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.format_190.execute(format.lisp:1894) at org.armedbear.lisp.LispThread.execute(LispThread.java:719) at org.armedbear.lisp.format_184.execute(format.lisp:1754) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.format_184.execute(format.lisp:1754) at org.armedbear.lisp.Symbol.execute(Symbol.java:837) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.format_183.execute(format.lisp:1740) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:121) at org.armedbear.lisp.Symbol.execute(Symbol.java:825) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.format_182.execute(format.lisp:1725) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:135) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.Lisp.funcall(Lisp.java:178) at org.armedbear.lisp.Primitives$pf_apply.execute(Primitives.java:2853) at org.armedbear.lisp.Primitive.execute(Primitive.java:148) at org.armedbear.lisp.Symbol.execute(Symbol.java:837) at org.armedbear.lisp.Condition.printObject(Condition.java:205) at org.armedbear.lisp.Lisp.format(Lisp.java:2049) at org.armedbear.lisp.Primitives$pf__format._format(Primitives.java:1702) at org.armedbear.lisp.Primitives$pf__format.execute(Primitives.java:1679) at org.armedbear.lisp.Symbol.execute(Symbol.java:837) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.signal_2.execute(signal.lisp:63) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:121) at org.armedbear.lisp.Symbol.execute(Symbol.java:825) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.clos_28.execute(clos.lisp:222) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:121) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.Lisp.funcall(Lisp.java:176) at org.armedbear.lisp.Primitives$pf_apply.execute(Primitives.java:2835) at org.armedbear.lisp.Symbol.execute(Symbol.java:825) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.clos_248.execute(clos.lisp:2273) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.clos_234.execute(clos.lisp:2052) at org.armedbear.lisp.FuncallableStandardObject.execute(FuncallableStandardObject.java:106) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.print_8.execute(print.lisp:127) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.print_14.execute(print.lisp:281) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.print_16.execute(print.lisp:301) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.pprint_153.execute(pprint.lisp:718) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:109) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.format_190.execute(format.lisp:1894) at org.armedbear.lisp.LispThread.execute(LispThread.java:719) at org.armedbear.lisp.format_184.execute(format.lisp:1754) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.format_184.execute(format.lisp:1754) at org.armedbear.lisp.Symbol.execute(Symbol.java:837) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.format_183.execute(format.lisp:1740) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:121) at org.armedbear.lisp.Symbol.execute(Symbol.java:825) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.format_182.execute(format.lisp:1725) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:135) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.Lisp.funcall(Lisp.java:178) at org.armedbear.lisp.Primitives$pf_apply.execute(Primitives.java:2853) at org.armedbear.lisp.Primitive.execute(Primitive.java:148) at org.armedbear.lisp.Symbol.execute(Symbol.java:837) at org.armedbear.lisp.Condition.printObject(Condition.java:205) at org.armedbear.lisp.Lisp.format(Lisp.java:2049) at org.armedbear.lisp.Primitives$pf__format._format(Primitives.java:1702) at org.armedbear.lisp.Primitives$pf__format.execute(Primitives.java:1679) at org.armedbear.lisp.Symbol.execute(Symbol.java:837) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.signal_2.execute(signal.lisp:63) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:121) at org.armedbear.lisp.Symbol.execute(Symbol.java:825) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.clos_28.execute(clos.lisp:222) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:121) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.Lisp.funcall(Lisp.java:176) at org.armedbear.lisp.Primitives$pf_apply.execute(Primitives.java:2835) at org.armedbear.lisp.Symbol.execute(Symbol.java:825) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.clos_248.execute(clos.lisp:2273) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.clos_234.execute(clos.lisp:2052) at org.armedbear.lisp.FuncallableStandardObject.execute(FuncallableStandardObject.java:106) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.print_8.execute(print.lisp:127) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.print_14.execute(print.lisp:281) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.print_16.execute(print.lisp:301) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.pprint_153.execute(pprint.lisp:718) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:109) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.format_190.execute(format.lisp:1894) at org.armedbear.lisp.LispThread.execute(LispThread.java:719) at org.armedbear.lisp.format_184.execute(format.lisp:1754) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.format_184.execute(format.lisp:1754) at org.armedbear.lisp.Symbol.execute(Symbol.java:837) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.format_183.execute(format.lisp:1740) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:121) at org.armedbear.lisp.Symbol.execute(Symbol.java:825) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.format_182.execute(format.lisp:1725) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:135) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.Lisp.funcall(Lisp.java:178) at org.armedbear.lisp.Primitives$pf_apply.execute(Primitives.java:2853) at org.armedbear.lisp.Primitive.execute(Primitive.java:148) at org.armedbear.lisp.Symbol.execute(Symbol.java:837) at org.armedbear.lisp.Condition.printObject(Condition.java:205) at org.armedbear.lisp.Lisp.format(Lisp.java:2049) at org.armedbear.lisp.Primitives$pf__format._format(Primitives.java:1702) at org.armedbear.lisp.Primitives$pf__format.execute(Primitives.java:1679) at org.armedbear.lisp.Symbol.execute(Symbol.java:837) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.signal_2.execute(signal.lisp:63) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:121) at org.armedbear.lisp.Symbol.execute(Symbol.java:825) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.clos_28.execute(clos.lisp:222) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:121) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.Lisp.funcall(Lisp.java:176) at org.armedbear.lisp.Primitives$pf_apply.execute(Primitives.java:2835) at org.armedbear.lisp.Symbol.execute(Symbol.java:825) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.clos_248.execute(clos.lisp:2273) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.clos_234.execute(clos.lisp:2052) at org.armedbear.lisp.FuncallableStandardObject.execute(FuncallableStandardObject.java:106) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.print_8.execute(print.lisp:127) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.print_14.execute(print.lisp:281) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.print_16.execute(print.lisp:301) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.pprint_153.execute(pprint.lisp:718) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:109) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.format_190.execute(format.lisp:1894) at org.armedbear.lisp.LispThread.execute(LispThread.java:719) at org.armedbear.lisp.format_184.execute(format.lisp:1754) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.format_184.execute(format.lisp:1754) at org.armedbear.lisp.Symbol.execute(Symbol.java:837) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.format_183.execute(format.lisp:1740) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:121) at org.armedbear.lisp.Symbol.execute(Symbol.java:825) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.format_182.execute(format.lisp:1725) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:135) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.Lisp.funcall(Lisp.java:178) at org.armedbear.lisp.Primitives$pf_apply.execute(Primitives.java:2853) at org.armedbear.lisp.Primitive.execute(Primitive.java:148) at org.armedbear.lisp.Symbol.execute(Symbol.java:837) at org.armedbear.lisp.Condition.printObject(Condition.java:205) at org.armedbear.lisp.Lisp.format(Lisp.java:2049) at org.armedbear.lisp.Primitives$pf__format._format(Primitives.java:1702) at org.armedbear.lisp.Primitives$pf__format.execute(Primitives.java:1679) at org.armedbear.lisp.Symbol.execute(Symbol.java:837) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.signal_2.execute(signal.lisp:63) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:121) at org.armedbear.lisp.Symbol.execute(Symbol.java:825) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.clos_28.execute(clos.lisp:222) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:121) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.Lisp.funcall(Lisp.java:176) at org.armedbear.lisp.Primitives$pf_apply.execute(Primitives.java:2835) at org.armedbear.lisp.Symbol.execute(Symbol.java:825) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.clos_248.execute(clos.lisp:2273) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.clos_234.execute(clos.lisp:2052) at org.armedbear.lisp.FuncallableStandardObject.execute(FuncallableStandardObject.java:106) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.print_8.execute(print.lisp:127) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.print_14.execute(print.lisp:281) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.print_16.execute(print.lisp:301) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.pprint_153.execute(pprint.lisp:718) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:109) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.format_190.execute(format.lisp:1894) at org.armedbear.lisp.LispThread.execute(LispThread.java:719) at org.armedbear.lisp.format_184.execute(format.lisp:1754) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.format_184.execute(format.lisp:1754) at org.armedbear.lisp.Symbol.execute(Symbol.java:837) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.format_183.execute(format.lisp:1740) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:121) at org.armedbear.lisp.Symbol.execute(Symbol.java:825) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.format_182.execute(format.lisp:1725) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:135) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.Lisp.funcall(Lisp.java:178) at org.armedbear.lisp.Primitives$pf_apply.execute(Primitives.java:2853) at org.armedbear.lisp.Primitive.execute(Primitive.java:148) at org.armedbear.lisp.Symbol.execute(Symbol.java:837) at org.armedbear.lisp.Condition.printObject(Condition.java:205) at org.armedbear.lisp.Lisp.format(Lisp.java:2049) at org.armedbear.lisp.Primitives$pf__format._format(Primitives.java:1702) at org.armedbear.lisp.Primitives$pf__format.execute(Primitives.java:1679) at org.armedbear.lisp.Symbol.execute(Symbol.java:837) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.signal_2.execute(signal.lisp:63) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:121) at org.armedbear.lisp.Symbol.execute(Symbol.java:825) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.clos_28.execute(clos.lisp:222) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:121) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.Lisp.funcall(Lisp.java:176) at org.armedbear.lisp.Primitives$pf_apply.execute(Primitives.java:2835) at org.armedbear.lisp.Symbol.execute(Symbol.java:825) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.clos_248.execute(clos.lisp:2273) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.clos_234.execute(clos.lisp:2052) at org.armedbear.lisp.FuncallableStandardObject.execute(FuncallableStandardObject.java:106) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.print_8.execute(print.lisp:127) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.print_14.execute(print.lisp:281) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.print_16.execute(print.lisp:301) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.pprint_153.execute(pprint.lisp:718) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:109) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.format_190.execute(format.lisp:1894) at org.armedbear.lisp.LispThread.execute(LispThread.java:719) at org.armedbear.lisp.format_184.execute(format.lisp:1754) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.format_184.execute(format.lisp:1754) at org.armedbear.lisp.Symbol.execute(Symbol.java:837) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.format_183.execute(format.lisp:1740) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:121) at org.armedbear.lisp.Symbol.execute(Symbol.java:825) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.format_182.execute(format.lisp:1725) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:135) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.Lisp.funcall(Lisp.java:178) at org.armedbear.lisp.Primitives$pf_apply.execute(Primitives.java:2853) at org.armedbear.lisp.Primitive.execute(Primitive.java:148) at org.armedbear.lisp.Symbol.execute(Symbol.java:837) at org.armedbear.lisp.Condition.printObject(Condition.java:205) at org.armedbear.lisp.Lisp.format(Lisp.java:2049) at org.armedbear.lisp.Primitives$pf__format._format(Primitives.java:1702) at org.armedbear.lisp.Primitives$pf__format.execute(Primitives.java:1679) at org.armedbear.lisp.Symbol.execute(Symbol.java:837) at org.armedbear.lisp.LispThread.execute(LispThread.java:701) at org.armedbear.lisp.signal_2.execute(signal.lisp:63) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:121) at org.armedbear.lisp.Symbol.execute(Symbol.java:825) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.clos_28.execute(clos.lisp:222) at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:121) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.Lisp.funcall(Lisp.java:176) at org.armedbear.lisp.Primitives$pf_apply.execute(Primitives.java:2835) at org.armedbear.lisp.Symbol.execute(Symbol.java:825) at org.armedbear.lisp.LispThread.execute(LispThread.java:683) at org.armedbear.lisp.clos_248.execute(clos.lisp:2273) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.clos_234.execute(clos.lisp:2052) at org.armedbear.lisp.FuncallableStandardObject.execute(FuncallableStandardObject.java:106) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.print_8.execute(print.lisp:127) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.print_14.execute(print.lisp:281) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) at org.armedbear.lisp.LispThread.execute(LispThread.java:666) at org.armedbear.lisp.print_16.execute(print.lisp:301) at org.armedbear.lisp.Symbol.execute(Symbol.java:813) $

1 0

[armedbear-devel] Fwd: Question about jnew-runtime-class
by archisman rudra 21 Sep '12

21 Sep '12

[Possibly duplicate post, sorry] Hi Alessio, Thanks for the quick and detailed response. Interesting! I'm answering because I wrote the current (incomplete) > version of jnew-runtime-class. Just FYI, you can find some notes about > it at <http://trac.common-lisp.net/armedbear/wiki/JavaFfi/RuntimeClass>. > I read that, and that did help a lot in understanding the new code. BTW, regarding the constructors, shouldn't you be able to define a method entry with name as :constructor and have that work? From looking at the function map-method-name in jvm-class-file.lisp, but not actually tested it yet. > What I wanted to achieve is to have methods that can be: > * arbitrary functions, including closures > * possibly redefined after the class has been loaded. Redefinition is > possible by using symbols as method implementations. > > There's also a hidden goal that is to keep the implementation simple > enough, and compiling Lisp code to the body of methods in an arbitrary > class is not easy at the moment. > > What explicitly is NOT a requirement is to have the generated class be > independent from ABCL (the methods are implemented in Lisp and will > always need runtime support). So, no matter how you arrange things, > you will never be able to distribute your class without abcl.jar. Note > that it is the same for Clojure, Scala, Groovy, etc. > > I don't know specifically how Hadoop works, but, as I see things, you need > to > 1. provide abcl.jar + your class to it > 2. have Hadoop execute enough code to load ABCL and initialize your class. > > Right. This is the same in clojure where I implemented something similar, but the language was unfamiliar and the way to actually call compile felt clunky, but some of that surely was simply unfamiliarity. So what I want to do is the following: 1. have abcl.jar and generated_filename_with_method_implementations.lisp in the classpath 2. Do the jvm equivalent of the following java code: Interpreter interp = Interpreter.createInstance(); interp.eval("(load \"generated_filename_with_method_implementations.lisp\")"); in the static initialization block of the class. > Now, probably the key point is who loads your class. > * if you can arrange to have ABCL load it and pass it to Hadoop, you > should be good with the current design. > * if Hadoop wants to load it by itself from a jar, then yes, you have > to somehow dump the method implementations somewhere and have the > class auto-load them from there when it is initialized. > > For the second case, I propose an intermediate design that is, imho, > simpler than dumping arbitrary forms: special-case the situation when > a method implementation is a symbol. In that case, directly generate > an instruction in the class file to find that symbol in its package > and assign it to the appropriate field. If the implementation of a > method is not a symbol nothing changes. That way, you will still need > to init ABCL before loading your class, but, when all your method > implementations are symbols, the class will be able to initialize > itself without external support. If some methods are proper functions, > instead, the class won't be self-contained, but will need some Lisp > code to be executed to be properly initialized. > > Does it make sense to you? Do you find it acceptable? If yes, I can > give a shot at implementing it, if you want. > > This certainly seems reasonable, but I don't understand the bit about "directly generate an instruction to find the package and do the assignement". Do I not need to change the compile infrastructure to get at the jvm representation of the (fdefinition name) ? The code in %jvm-compile (in compiler-pass2.lisp) seems to do the compilation to a (sys::%make-byte-array-output-stream) rather than to arbitrary output-streams. Don't know the reason for this. If this can be changed, we can do this for arbitrary forms, rather than just symbols. ie, we can compile the relevant forms into classname_methodname.abcl and generate a static method call to Load.load(filename) in the static init block as before, to do the autoloading, and then we will know the LispObject name holding the jmethod and can assign that to the appropriate field as you suggest above. Other than this (the compile issue), I find this entirely reasonable and would love it if you do implement it. much regards, Archi > Peace, > Alessio > > -- > Some gratuitous spam: > > http://ripple-project.org Ripple, social credit system > http://villages.cc Villages.cc, Ripple-powered community economy > http://common-lisp.net/project/armedbear ABCL, Common Lisp on the JVM > http://code.google.com/p/tapulli my current open source projects > http://www.manydesigns.com/ ManyDesigns Portofino, open source > model-driven Java web application framework >

1 0

[armedbear-devel] Closer-mop support for ABCL
by Rudi Schlatte 19 Sep '12

19 Sep '12

Greetings, ABCL 1.1, expected in 2-3 months from now, will have a mop implementation that passes the mop test suite without missing features. The work is finished in svn and can be checked out at http://svn.common-lisp.net/armedbear/trunk/abcl/. It would be great if we had closer-mop support by release time; attached is a naive patch (which assumes that abcl needs nothing in closer-mop-shared). I also re-send the abcl patch for mop-feature-tests. The closer-mop patch is written to give an error if :mop isn't on *features*, this feature is present in the mop-supporting svn version of abcl and will be in the released version as well, so if you decide to merge the patch, users of the old release will get a sensible error message. Cheers, Rudi

3 17

[armedbear-devel] NEWBIE
by emeka okafor 14 Sep '12

14 Sep '12

Hello Guys, I would like to use abcl on some project and I have a couple of questions for you guys: - What IDE do you guys use? - What build system do you use? - Can I integrate abcl in maven? Thx.

5 6

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

armedbear-devel