Common Lisp для мобильных OS.

$ ./adb shell
root@android:/ # cd /data/local/ccl
cd /data/local/ccl
root@android:/data/local/ccl # ls -l
ls -l
-rwxrwxrwx root     root         7807 2013-04-03 20:50 aarmcl
-rw-rw-rw- root     root     14434320 2013-04-03 20:50 aarmcl.image
-rw-rw-rw- root     root       687615 2013-04-03 20:50 aarmcl.so
root@android:/data/local/ccl # ./aarmcl
./aarmcl
Unhandled exception 4 at 0x5000d780, context->regs at #xbe874658
? for help
[2604] Clozure CL kernel debugger: ?
?
(G)  Set specified GPR to new value
(A)  Advance the program counter by one instruction (use with caution!)
(D)  Describe the current exception in greater detail
(R)  Show raw GPR/SPR register values
(L)  Show Lisp values of tagged registers
(F)  Show FPU registers
(S)  Find and describe symbol matching specified name
(B)  Show backtrace
(T)  Show info about current thread
(M)  Show memory areas
(X)  Exit from this debugger, asserting that any exception was handled
(K)  Kill Clozure CL process
(V)  Show Subversion revision information
(?)  Show this help
[2604] Clozure CL kernel debugger: B
B
current thread: tcr = 0x9a03f0, native thread ID = 0xa2c, interrupts disabled


(#xBE874928) #x5011D49C : #<Function %ALLOCATE-CALLBACK-POINTER #x5404215e> + 184
(#xBE874958) #x5011D434 : #<Function %ALLOCATE-CALLBACK-POINTER #x5404215e> + 80
(#xBE8749C8) #x5011F1D4 : #<Function MAKE-CALLBACK-TRAMPOLINE #x540429ee> + 80
(#xBE8749D8) #x5078D0D4 : #<Function RESTORE-PASCAL-FUNCTIONS #x5435364e> + 232
(#xBE8749E8) #x5078D8F4 : #<Function RESTORE-LISP-POINTERS #x5435397e> + 136
(#xBE8749F8) #x0400E274 : (subprimitive (null))
(#xBE874A28) #x0400E264 : (subprimitive (null))
(#xBE874A80) #x0400E304 : (subprimitive (null))
[2604] Clozure CL kernel debugger: T
T
Current Thread Context Record (tcr) = 0x9a03f0
Control (C) stack area:  low = 0xbe712000, high = 0xbe874b10
Value (lisp) stack area: low = 0x40159000, high = 0x402a5000
Exception stack pointer = 0xbe874928
[2604] Clozure CL kernel debugger: K
K
Killed
137|root@android:/data/local/ccl #

MacBook-Air-user:platform-tools user$ ./adb shell
shell@android:/ $ cd /data/local/ccl
shell@android:/data/local/ccl $ ls -l
-rwxrwxrwx shell    shell        7807 2012-02-01 21:08 aarmcl
-rw-rw-rw- shell    shell    14434320 2012-02-01 21:08 aarmcl.image
-rwxrwxrwx shell    shell      687615 2012-02-01 21:08 aarmcl.so
drwxrwxr-x shell    shell             2012-02-02 02:08 android-headers
drwxrwxrwx shell    shell             2012-02-02 02:13 bin
drwxrwxr-x shell    shell             2012-02-02 02:08 compiler
drwxrwxr-x shell    shell             2012-02-02 02:07 contrib
drwxrwxr-x shell    shell             2012-02-02 02:07 doc
drwxrwxr-x shell    shell             2012-02-02 02:08 examples
drwxrwxrwx shell    shell             2012-02-02 02:12 l1-fasls
drwxrwxr-x shell    shell             2012-02-02 02:08 level-0
drwxrwxr-x shell    shell             2012-02-02 02:08 level-1
drwxrwxr-x shell    shell             2012-02-02 02:07 lib
drwxrwxr-x shell    shell             2012-02-02 02:08 library
drwxrwxr-x shell    shell             2012-02-02 02:08 lisp-kernel
drwxrwxr-x shell    shell             2012-02-02 02:08 objc-bridge
drwxrwxr-x shell    shell             2012-02-02 02:08 scripts
drwxrwxr-x shell    shell             2012-02-02 02:08 tools
drwxrwxr-x shell    shell             2012-02-02 02:08 xdump
shell@android:/data/local/ccl $ ./a 
aarmcl              aarmcl.image        aarmcl.so           android-headers/
shell@android:/data/local/ccl $ ./aarmcl                                       
Welcome to Clozure Common Lisp Version 1.8-dev-r15086M-trunk  (AndroidARM32)!
?