[Openmcl-devel] 3 questions - TLS the default? global thread-shared vars? .CDB gen broken?

Jason E. Aten j.e.aten at gmail.com
Sun Mar 20 03:59:42 PDT 2011


Arg. I'm so close to getting this working!   Here I did an svn update to
r14684 / r14469, and get an error in lib/compile-ccl.lisp about a 'Error:
Foreign variable "EX_OSERR" not found'.  I'll attach a full log with svn
update details and a backtrace in case that helps.

 - Jason

p.s. a couple of small things came up while I was trying to figure this
out...

a. is there a way to show the source for a function already defined?  In
googling I found some notes about *recor\
d-source-file*, and CCL:*SAVE-SOURCE-LOCATIONS*, but I haven't figured out
how to display the source for a functi\
on. Is that possible?

b. is there an option to automatically, upon error condition, go to the
toplevel as if typing ctrl-d or :q, instead o\
f to the nested repl every time. I make alot of mistakes(!) and just want to
try again immediately, without the e\
xtra keystroke of having to get out of the condition restart nested repl.

Thank you, thank you!

c. summary of attached log of svn update attempt:

jaten at afarm:~/pkg/ccl$ ccl --no-init
trying: /home/jaten/pkg/ccl/lx86cl64
Welcome to Clozure Common Lisp Version 1.6  (LinuxX8664)!
? (ccl:rebuild-ccl :full t)
Rebuilding Clozure Common Lisp using Version 1.6  (LinuxX8664)
;Building lisp-kernel ...
;Kernel built successfully.
;Compiling "/home/jaten/pkg/ccl/lib/systems.lisp"...
;Loading #P"/home/jaten/pkg/ccl/bin/systems.lx64fsl"...
;Compiling "/home/jaten/pkg/ccl/lib/compile-ccl.lisp"...
Read error between positions 17010 and 17742 in
/home/jaten/pkg/ccl/lib/compile-ccl.lisp.
> Error: Foreign variable "EX_OSERR" not found
> While executing: %LOAD-VAR, in process listener(1).
> Type :POP to abort, :R for a list of available restarts.
> Type :? for other options.
1 >

#hmm... do I have the fix to lib/db-io.lisp ?  It looks like it should be
there from the svn log...

jaten at afarm:~/pkg/ccl/lib$ svn log db-io.lisp
------------------------------------------------------------------------
r14684 | gb | 2011-03-19 17:00:03 -0500 (Sat, 19 Mar 2011) | 2 lines

Propagate r14525 to 1.6 branch.

# umph... I don't know what do try next!?!


On Sun, Mar 20, 2011 at 4:57 AM, Gary Byers <gb at clozure.com> wrote:

> That was fixed in the trunk a few months ago but the change hadn't
> been propagated to the 1.6 tree.  It's there now.
>
>
>
> On Sat, 19 Mar 2011, Jason E. Aten wrote:
>
>  Thank you for the fix on this, Gary.
>>
>> I tested it and it works. ?I can confirm that svn r72 of ffigen4 now works
>> for me on?ccl/x86-headers64/libc/C/populate.sh ?under Ubunutu 10.04 on
>> x86_64.
>>
>> I am still getting some kind of issue with the final assembly of .cdb
>> files
>> (they are not produced) during ENCODE-FFI-TYPE. ?I try to run
>> cc::parse-standard-ffi-files on the resulting :libc, and I get this error:
>>
>> ? (require "PARSE-FFI")
>> "PARSE-FFI"
>> ("PARSE-FFI")
>> ? (ccl::parse-standard-ffi-files :libc)
>> #P"/home/jaten/pkg/ccl/x86-headers64/libc/C/usr/include/_G_config.ffi" ...
>> #P"/home/jaten/pkg/ccl/x86-headers64/libc/C/usr/include/a\\.out.ffi" ...
>> #P"/home/jaten/pkg/ccl/x86-headers64/libc/C/usr/include/aio.ffi" ...
>> #P"/home/jaten/pkg/ccl/x86-headers64/libc/C/usr/include/aliases.ffi" ...
>> ...
>> ...(all the .ffi files are listed and seem to load okay, and then)....
>> ...
>> #P"/home/jaten/pkg/ccl/x86-headers64/libc/C/usr/include/wchar.ffi" ...
>> #P"/home/jaten/pkg/ccl/x86-headers64/libc/C/usr/include/wctype.ffi" ...
>> #P"/home/jaten/pkg/ccl/x86-headers64/libc/C/usr/include/wordexp.ffi" ...
>> #P"/home/jaten/pkg/ccl/x86-headers64/libc/C/usr/include/xlocale.ffi" ...
>> #P"/home/jaten/pkg/ccl/x86-headers64/libc/C/usr/include/zlib.ffi" ...
>> > Error: value #<FFI-TRANSPARENT-UNION 286_/usr/include/wait.h
>> #x302002F0059D> is not of the expected type FFI-UNION.
>> > While executing: ENCODE-FFI-TYPE, in process listener(1).
>> > Type :POP to abort, :R for a list of available restarts.
>> > Type :? for other options.
>> 1 >?
>>
>> In case it helps diagnose this, I've attached copies of
>> /usr/include/wait.h
>> ?and the ?~/pkg/ccl/x86-headers64/libc/C/usr/include/wait.ffi ?file
>> generated by h-to-ffi.sh run under populate.sh with CFLAGS="-m64
>> -D_GNU_SOURCE";export CFLAGS.
>>
>> Let me know if I can provide anything more.
>>
>> ?- Jason
>>
>>
>> On Sat, Mar 19, 2011 at 4:01 PM, Gary Byers <gb at clozure.com> wrote:
>>      gcc-4.0.0 is several years old, but we (usually) don't care
>>      about that;
>>      what generally matters is that the gcc version in question
>>      follows the
>>      platform's ABI's rules about how structures are laid out and how
>>      their
>>      fields are aligned. ?Older GCC versions are generally easier to
>>      build
>>      (have fewer dependencies) than newer versions are, and on many
>>      platforms
>>      we can patch 4.0.0 and get a working translator; that's what the
>>      code
>>      in the ffigen4 svn trunk tries to do.
>>
>>      The construct from /usr/include/bits/link.h that it's choking on
>>      (and
>>      it chokes for me as well, though I didn't notice) is the
>>      description
>>      of the (relatively new) 256-bit "ymm" vector register type.
>>      ?ffigen
>>      doesn't believe that such a thing exists. ?It happens to be sort
>>      of
>>      right about that (it was supposed to have been introduced in
>>      Intel's
>>      "Sandy Bridge" chips, which got delayed/recalled and may or may
>>      not
>>      exist in shipping systems; I haven't followed it too closely)
>>      but the
>>      concept of 256-bit (and possibly larger) SIMD registers has been
>>      in
>>      some Linux headers (and kernels/libraries) for the last few
>>      years, and
>>      we need to support that.
>>
>>      I checked in a change to ffigen that seems to fix this.
>>
>>      On Sat, 19 Mar 2011, Jason E. Aten wrote:
>>
>>      Hmm... that does indeed look like the wiki page I was
>>      referencing. ?Is
>>      gcc-4.0.0 not the current version?
>>      Here's the exact script (with sequence of commands) that I
>>      wrote to preserve
>>      exactly how I went about acquiring and installing ffigen
>>      and h-to-ffi.sh. If
>>      you have trouble reproducing it, let me know. It's just a
>>      stock Ubuntu 10.04
>>      on x86_64, but I can give you a login on a remote box if
>>      need be, or get you
>>      a virtualbox image.
>>      Thanks,
>>      Jason
>>
>>      jaten at AtenMBP-2:~/research/djitia$ cat install-ffigen.sh?
>>      #!/bin/bash
>>      svn co
>>      http://svn.clozure.com/publicsvn/ffigen4/trunk/ffigen4
>>      cd ffigen4/
>>      wget
>>      http://ftp.gnu.org/gnu/gcc/gcc-4.0.0/gcc-core-4.0.0.tar.bz2
>>      wget
>>      http://ftp.gnu.org/gnu/gcc/gcc-4.0.0/gcc-objc-4.0.0.tar.bz2
>>      make
>>      # example sudo
>> tarxfz/home/jaten/pkg/llvm28/llvm-2.8/tools/ldc2/ffigen/ffigen4/ffigen-bin-lin
>>
>>      uxx
>>      8664-gcc-4.0.0-2011-03-18-23-40-54.tar.gz -C /usr/local
>>      export TARBALL=`ls -1 | grep ffigen-bin`
>>      export HERE=`pwd`
>>
>>      echo "installing now to: ? ?/usr/local/ffigen ? and ?
>>      /usr/local/bin/h-to-ffi.sh ? ...with sudo"
>>      echo "sudo tar xfz `pwd`/`ls -1 | grep ffigen-bin` -C
>>      /usr/local"
>>      sudo tar xfz `pwd`/`ls -1 | grep ffigen-bin` -C /usr/local
>>
>>
>>      On Sat, Mar 19, 2011 at 11:37 AM, Gary Byers
>>      <gb at clozure.com> wrote:
>>      ? ? ?Hmm. ?The Wiki page at
>>      ? ? ?<http://trac.clozure.com/ccl/wiki/BuildFFIGEN> is
>>      ? ? ?supposed to be the canonical reference that describes
>>      how to
>>      ? ? ?obtain/build/install
>>      ? ? ?the FFI translator. ?In the past, we've distributed
>>      sources and
>>      ? ? ?binaries via
>>      ? ? ?other means, but there aren't supposed to be any
>>      links to those
>>      ? ? ?older versions
>>      ? ? ?and I can't find any links in the documentation.
>>
>>      ? ? ?The current version doesn't have any problem
>>      translating
>>      ? ? ?/usr/include/link.h
>>      ? ? ?(or with the SIMD vector type referenced in the
>>      included file),
>>      ? ? ?but I'd certainly
>>      ? ? ?believe that older versions did. ?If you got an older
>>      version,
>>      ? ? ?that'd explain
>>      ? ? ?it; if you remember how you got that version, we
>>      should fix any
>>      ? ? ?links to it
>>      ? ? ?so that they reference the Wiki page instead.
>>
>>      ? ? ?On Sat, 19 Mar 2011, Jason E. Aten wrote:
>>
>>      ? ? ?Thank you Raffael. ?I appreciate the pointer. I guess
>>      that
>>      ? ? ?confirms #1, and
>>      ? ? ?answers #2. :-)
>>
>>      ? ? ?For #3, I've managed to locate the source code for
>>      the
>>      ? ? ?ffigen loader, and
>>      ? ? ?figured out that :SUBDIR is supposed to be :libc or
>>      :elf
>>      ? ? ??or similar.
>>
>>      ? ? ?However I do manage to have populate.sh run into an
>>      issue:
>>
>>      ? ? ?+++ /usr/include/link.h
>>      ? ? ?Need to create info for type:
>>      ? ? ??<vector_type 0x7fab52eacb60
>>      ? ? ??? ?type <real_type 0x7fab53619000 float SF
>>      ? ? ??? ? ? ?size <integer_cst 0x7fab535fba80 constant
>>      ? ? ?invariant 32>
>>      ? ? ??? ? ? ?unit size <integer_cst 0x7fab535fb5a0
>>      constant
>>      ? ? ?invariant 4>
>>      ? ? ??? ? ? ?align 32 symtab 18 alias set -1 precision 32
>>      ? ? ??? ? ? ?pointer_to_this <pointer_type
>>      0x7fab53619270>>
>>      ? ? ??? ?BLK
>>      ? ? ??? ?size <integer_cst 0x7fab536146f0 type
>>      <integer_type
>>      ? ? ?0x7fab536015b0
>>      ? ? ?bit_size_type> constant invariant 256>
>>      ? ? ??? ?unit size <integer_cst 0x7fab535fb570 type
>>      ? ? ?<integer_type 0x7fab536014e0
>>      ? ? ?long unsigned int> constant invariant 32>
>>      ? ? ??? ?align 256 symtab 341 alias set -1 nunits 8>
>>      ? ? ?In file included from /usr/include/link.h:36:
>>      ? ? ?/usr/include/bits/link.h:68: internal compiler error:
>>      in
>>      ? ? ?ffi_create_type_info, at ffi.c:428
>>      ? ? ?Please submit a full bug report,
>>      ? ? ?with preprocessed source if appropriate.
>>      ? ? ?See <URL:http://gcc.gnu.org/bugs.html> for
>>      instructions.
>>
>>      ? ? ?where the relevant section from
>>      /usr/include/bits/link.h,
>>      ? ? ?including line 68
>>      ? ? ?is this:
>>
>>      ? ? ?/* Registers for entry into PLT on x86-64. ?*/
>>      ? ? ?# if __GNUC_PREREQ (4,0)
>>      ? ? ?typedef float La_x86_64_xmm __attribute__
>>      ? ? ?((__vector_size__ (16)));
>>      ? ? ?typedef float La_x86_64_ymm __attribute__
>>      ? ? ?((__vector_size__ (32))); ?/* line
>>      ? ? ?68 */
>>      ? ? ?# else
>>      ? ? ?typedef float La_x86_64_xmm __attribute__ ((__mode__
>>      ? ? ?(__V4SF__)));
>>      ? ? ?# endif
>>
>>      ? ? ?Arg. What should I try? ?Is this the right place to
>>      report
>>      ? ? ?this?
>>
>>      ? ? ?Thank you.
>>
>>      ? ? ?Jason
>>
>>
>>      ? ? ?On Sat, Mar 19, 2011 at 12:21 AM, Raffael Cavallaro
>>      ? ? ?<raffaelcavallaro at mac.com> wrote:
>>
>>      ? ? ?? ? ?On Mar 19, 2011, at 1:09 AM, Jason E. Aten
>>      wrote:
>>
>>      ? ? ?? ? ?> In order words, when two different threads
>>      need to
>>      ? ? ?be able to
>>      ? ? ?? ? ?name the same variable (after locking the thread
>>      ? ? ?inspects the
>>      ? ? ?? ? ?shared variable, possibly updates it, then
>>      releases
>>      ? ? ?the lock),
>>      ? ? ?? ? ?how do I tell lisp this is what I'd like?
>>
>>      ? ? ?See section 4.8 of the documentation "Static
>>      Variables"
>>
>>      ? ? ?e.g., (defstatic *foo* 3)
>>
>>      ? ? ?It's an error to dynamically rebind a static
>>      variable; its
>>      ? ? ?value is
>>      ? ? ?always the same across all threads. Naturally, as you
>>      ? ? ?suggest, you'll
>>      ? ? ?want to avoid race conditions by using a lock or
>>      ? ? ?semaphore.
>>
>>      ? ? ?warmest regards,
>>
>>      ? ? ?Ralph
>>
>>
>>      ? ? ?Raffael Cavallaro
>>      ? ? ?raffaelcavallaro at me.com
>>
>>
>>
>>
>>
>>
>>
>>      --
>>      Jason E. Aten, Ph.D.
>>
>>
>>
>>
>>
>>
>>
>> --
>> Jason E. Aten, Ph.D.
>>
>>
>>
>>
>>


-- 
Jason E. Aten, Ph.D.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.clozure.com/pipermail/openmcl-devel/attachments/20110320/c8aaa8cb/attachment.htm>
-------------- next part --------------
jaten at afarm:~/pkg/ccl$ svn update

Fetching external item into 'cocoa-ide'
External at revision 14684.


Fetching external item into 'compiler'
U    compiler/ARM/arm-vinsns.lisp
U    compiler/vinsn.lisp
U    compiler/nx-basic.lisp
U    compiler/optimizers.lisp
Updated external to revision 14684.


Fetching external item into 'contrib'
Updated external to revision 14684.


Fetching external item into 'contrib/cocoa-ide'
Updated external to revision 14684.


Fetching external item into 'doc'
Updated external to revision 14684.


Fetching external item into 'examples'
Updated external to revision 14684.


Fetching external item into 'level-0'
U    level-0/ARM/arm-def.lisp
UU   level-0/l0-misc.lisp
Updated external to revision 14684.


Fetching external item into 'level-1'
U    level-1/l1-clos-boot.lisp
U    level-1/l1-readloop-lds.lisp
Updated external to revision 14684.


Fetching external item into 'lib'
U    lib/macros.lisp
U    lib/db-io.lisp
U    lib/ffi-linuxarm.lisp
Updated external to revision 14684.


Fetching external item into 'library'
U    library/cover.lisp
Updated external to revision 14684.


Fetching external item into 'lisp-kernel'
U    lisp-kernel/arm-spentry.s
U    lisp-kernel/pmcl-kernel.c
U    lisp-kernel/xlbt.c
U    lisp-kernel/arm-gc.c
U    lisp-kernel/linuxarm/Makefile
U    lisp-kernel/lisp-debug.c
Updated external to revision 14684.


Fetching external item into 'objc-bridge'
Updated external to revision 14684.


Fetching external item into 'scripts'
Updated external to revision 14684.


Fetching external item into 'tools'
Updated external to revision 14684.


Fetching external item into 'xdump'
Updated external to revision 14684.


Fetching external item into 'darwin-x86-headers'
Updated external to revision 14684.


Fetching external item into 'darwin-x86-headers64'
Updated external to revision 14684.

Updated to revision 14684.
jaten at afarm:~/pkg/ccl$ svn info
Path: .
URL: http://svn.clozure.com/publicsvn/openmcl/release/1.6/darwinx86/ccl
Repository Root: http://svn.clozure.com/publicsvn/openmcl
Repository UUID: 8bdb8f1d-59ce-db11-9e41-0016172a54ae
Revision: 14684
Node Kind: directory
Schedule: normal
Last Changed Author: rme
Last Changed Rev: 14469
Last Changed Date: 2010-12-06 22:03:33 -0600 (Mon, 06 Dec 2010)

jaten at afarm:~/pkg/ccl$ which ccl
/home/jaten/uns/bin/ccl
jaten at afarm:~/pkg/ccl$ ls -al `which ccl`
lrwxrwxrwx 1 jaten jaten 5 2010-12-21 05:11 /home/jaten/uns/bin/ccl -> ccl64
jaten at afarm:~/pkg/ccl$ ccl --no-init
trying: /home/jaten/pkg/ccl/lx86cl64
Welcome to Clozure Common Lisp Version 1.6  (LinuxX8664)!
? (ccl:rebuild-ccl :full t)
Rebuilding Clozure Common Lisp using Version 1.6  (LinuxX8664)
;Building lisp-kernel ...
;Kernel built successfully.
;Compiling "/home/jaten/pkg/ccl/lib/systems.lisp"...
;Loading #P"/home/jaten/pkg/ccl/bin/systems.lx64fsl"...
;Compiling "/home/jaten/pkg/ccl/lib/compile-ccl.lisp"...
Read error between positions 17010 and 17742 in /home/jaten/pkg/ccl/lib/compile-ccl.lisp.
> Error: Foreign variable "EX_OSERR" not found
> While executing: %LOAD-VAR, in process listener(1).
> Type :POP to abort, :R for a list of available restarts.
> Type :? for other options.
1 > :b
 (7F8DB95AAEC8) : 0 (%LOAD-VAR X86-LINUX64::EX_OSERR NIL) 2077
 (7F8DB95AAF20) : 1 (FUNCALL #'#<|#$-reader|> #<BASIC-FILE-CHARACTER-INPUT-STREAM ("/home/jaten/pkg/ccl/lib/compile-ccl.lisp"/5 ISO-8859-1) #x30200053EBBD> #\$ NIL) 813
 (7F8DB95AAF90) : 2 (READ-DISPATCH #<BASIC-FILE-CHARACTER-INPUT-STREAM ("/home/jaten/pkg/ccl/lib/compile-ccl.lisp"/5 ISO-8859-1) #x30200053EBBD> #\#) 749
 (7F8DB95AB020) : 3 (%PARSE-EXPRESSION #<BASIC-FILE-CHARACTER-INPUT-STREAM ("/home/jaten/pkg/ccl/lib/compile-ccl.lisp"/5 ISO-8859-1) #x30200053EBBD> #\# (NIL)) 605
 (7F8DB95AB090) : 4 (%READ-LIST-EXPRESSION #<BASIC-FILE-CHARACTER-INPUT-STREAM ("/home/jaten/pkg/ccl/lib/compile-ccl.lisp"/5 ISO-8859-1) #x30200053EBBD> (NIL) #\)) 245
 (7F8DB95AB0E8) : 5 (READ-LIST #<BASIC-FILE-CHARACTER-INPUT-STREAM ("/home/jaten/pkg/ccl/lib/compile-ccl.lisp"/5 ISO-8859-1) #x30200053EBBD> NIL #\)) 661
 (7F8DB95AB178) : 6 (%PARSE-EXPRESSION #<BASIC-FILE-CHARACTER-INPUT-STREAM ("/home/jaten/pkg/ccl/lib/compile-ccl.lisp"/5 ISO-8859-1) #x30200053EBBD> #\( (NIL)) 477
 (7F8DB95AB1E0) : 7 (%READ-LIST-EXPRESSION #<BASIC-FILE-CHARACTER-INPUT-STREAM ("/home/jaten/pkg/ccl/lib/compile-ccl.lisp"/5 ISO-8859-1) #x30200053EBBD> (NIL) #\)) 245
 (7F8DB95AB238) : 8 (READ-LIST #<BASIC-FILE-CHARACTER-INPUT-STREAM ("/home/jaten/pkg/ccl/lib/compile-ccl.lisp"/5 ISO-8859-1) #x30200053EBBD> NIL #\)) 661
 (7F8DB95AB2C8) : 9 (%PARSE-EXPRESSION #<BASIC-FILE-CHARACTER-INPUT-STREAM ("/home/jaten/pkg/ccl/lib/compile-ccl.lisp"/5 ISO-8859-1) #x30200053EBBD> #\( (NIL)) 477
 (7F8DB95AB330) : 10 (%READ-LIST-EXPRESSION #<BASIC-FILE-CHARACTER-INPUT-STREAM ("/home/jaten/pkg/ccl/lib/compile-ccl.lisp"/5 ISO-8859-1) #x30200053EBBD> (NIL) #\)) 245
 (7F8DB95AB388) : 11 (READ-LIST #<BASIC-FILE-CHARACTER-INPUT-STREAM ("/home/jaten/pkg/ccl/lib/compile-ccl.lisp"/5 ISO-8859-1) #x30200053EBBD> NIL #\)) 661
 (7F8DB95AB418) : 12 (%PARSE-EXPRESSION #<BASIC-FILE-CHARACTER-INPUT-STREAM ("/home/jaten/pkg/ccl/lib/compile-ccl.lisp"/5 ISO-8859-1) #x30200053EBBD> #\( NIL) 477
 (7F8DB95AB480) : 13 (%READ-FORM #<BASIC-FILE-CHARACTER-INPUT-STREAM ("/home/jaten/pkg/ccl/lib/compile-ccl.lisp"/5 ISO-8859-1) #x30200053EBBD> 0 NIL) 581
 (7F8DB95AB4D0) : 14 (READ-CONDITIONAL #<BASIC-FILE-CHARACTER-INPUT-STREAM ("/home/jaten/pkg/ccl/lib/compile-ccl.lisp"/5 ISO-8859-1) #x30200053EBBD> #\- NIL) 125
 (7F8DB95AB500) : 15 (READ-DISPATCH #<BASIC-FILE-CHARACTER-INPUT-STREAM ("/home/jaten/pkg/ccl/lib/compile-ccl.lisp"/5 ISO-8859-1) #x30200053EBBD> #\#) 749
 (7F8DB95AB590) : 16 (%PARSE-EXPRESSION #<BASIC-FILE-CHARACTER-INPUT-STREAM ("/home/jaten/pkg/ccl/lib/compile-ccl.lisp"/5 ISO-8859-1) #x30200053EBBD> #\# (NIL)) 605
 (7F8DB95AB600) : 17 (%READ-LIST-EXPRESSION #<BASIC-FILE-CHARACTER-INPUT-STREAM ("/home/jaten/pkg/ccl/lib/compile-ccl.lisp"/5 ISO-8859-1) #x30200053EBBD> (NIL) #\)) 245
 (7F8DB95AB658) : 18 (READ-LIST #<BASIC-FILE-CHARACTER-INPUT-STREAM ("/home/jaten/pkg/ccl/lib/compile-ccl.lisp"/5 ISO-8859-1) #x30200053EBBD> NIL #\)) 661
 (7F8DB95AB6E8) : 19 (%PARSE-EXPRESSION #<BASIC-FILE-CHARACTER-INPUT-STREAM ("/home/jaten/pkg/ccl/lib/compile-ccl.lisp"/5 ISO-8859-1) #x30200053EBBD> #\( (NIL)) 477
 (7F8DB95AB750) : 20 (%READ-LIST-EXPRESSION #<BASIC-FILE-CHARACTER-INPUT-STREAM ("/home/jaten/pkg/ccl/lib/compile-ccl.lisp"/5 ISO-8859-1) #x30200053EBBD> (NIL) #\)) 245
 (7F8DB95AB7A8) : 21 (READ-LIST #<BASIC-FILE-CHARACTER-INPUT-STREAM ("/home/jaten/pkg/ccl/lib/compile-ccl.lisp"/5 ISO-8859-1) #x30200053EBBD> NIL #\)) 661
 (7F8DB95AB838) : 22 (%PARSE-EXPRESSION #<BASIC-FILE-CHARACTER-INPUT-STREAM ("/home/jaten/pkg/ccl/lib/compile-ccl.lisp"/5 ISO-8859-1) #x30200053EBBD> #\( (NIL)) 477
 (7F8DB95AB8A0) : 23 (%READ-LIST-EXPRESSION #<BASIC-FILE-CHARACTER-INPUT-STREAM ("/home/jaten/pkg/ccl/lib/compile-ccl.lisp"/5 ISO-8859-1) #x30200053EBBD> (NIL) #\)) 245
 (7F8DB95AB8F8) : 24 (READ-LIST #<BASIC-FILE-CHARACTER-INPUT-STREAM ("/home/jaten/pkg/ccl/lib/compile-ccl.lisp"/5 ISO-8859-1) #x30200053EBBD> NIL #\)) 661
 (7F8DB95AB988) : 25 (%PARSE-EXPRESSION #<BASIC-FILE-CHARACTER-INPUT-STREAM ("/home/jaten/pkg/ccl/lib/compile-ccl.lisp"/5 ISO-8859-1) #x30200053EBBD> #\( (NIL)) 477
 (7F8DB95AB9F0) : 26 (%READ-LIST-EXPRESSION #<BASIC-FILE-CHARACTER-INPUT-STREAM ("/home/jaten/pkg/ccl/lib/compile-ccl.lisp"/5 ISO-8859-1) #x30200053EBBD> (NIL) #\)) 245
 (7F8DB95ABA48) : 27 (READ-LIST #<BASIC-FILE-CHARACTER-INPUT-STREAM ("/home/jaten/pkg/ccl/lib/compile-ccl.lisp"/5 ISO-8859-1) #x30200053EBBD> NIL #\)) 661
 (7F8DB95ABAD8) : 28 (%PARSE-EXPRESSION #<BASIC-FILE-CHARACTER-INPUT-STREAM ("/home/jaten/pkg/ccl/lib/compile-ccl.lisp"/5 ISO-8859-1) #x30200053EBBD> #\( (NIL)) 477
 (7F8DB95ABB40) : 29 (%READ-LIST-EXPRESSION #<BASIC-FILE-CHARACTER-INPUT-STREAM ("/home/jaten/pkg/ccl/lib/compile-ccl.lisp"/5 ISO-8859-1) #x30200053EBBD> (NIL) #\)) 245
 (7F8DB95ABB98) : 30 (READ-LIST #<BASIC-FILE-CHARACTER-INPUT-STREAM ("/home/jaten/pkg/ccl/lib/compile-ccl.lisp"/5 ISO-8859-1) #x30200053EBBD> NIL #\)) 661
 (7F8DB95ABC28) : 31 (%PARSE-EXPRESSION #<BASIC-FILE-CHARACTER-INPUT-STREAM ("/home/jaten/pkg/ccl/lib/compile-ccl.lisp"/5 ISO-8859-1) #x30200053EBBD> #\( (NIL)) 477
 (7F8DB95ABC90) : 32 (%READ-LIST-EXPRESSION #<BASIC-FILE-CHARACTER-INPUT-STREAM ("/home/jaten/pkg/ccl/lib/compile-ccl.lisp"/5 ISO-8859-1) #x30200053EBBD> (NIL) #\)) 245
 (7F8DB95ABCE8) : 33 (READ-LIST #<BASIC-FILE-CHARACTER-INPUT-STREAM ("/home/jaten/pkg/ccl/lib/compile-ccl.lisp"/5 ISO-8859-1) #x30200053EBBD> NIL #\)) 661
 (7F8DB95ABD78) : 34 (%PARSE-EXPRESSION #<BASIC-FILE-CHARACTER-INPUT-STREAM ("/home/jaten/pkg/ccl/lib/compile-ccl.lisp"/5 ISO-8859-1) #x30200053EBBD> #\( NIL) 477
 (7F8DB95ABDE0) : 35 (%READ-FORM #<BASIC-FILE-CHARACTER-INPUT-STREAM ("/home/jaten/pkg/ccl/lib/compile-ccl.lisp"/5 ISO-8859-1) #x30200053EBBD> NIL (NIL)) 581
 (7F8DB95ABE30) : 36 (READ-INTERNAL #<BASIC-FILE-CHARACTER-INPUT-STREAM ("/home/jaten/pkg/ccl/lib/compile-ccl.lisp"/5 ISO-8859-1) #x30200053EBBD> NIL (NIL) NIL) 253
 (7F8DB95ABEB0) : 37 (READ-RECORDING-SOURCE #<BASIC-FILE-CHARACTER-INPUT-STREAM ("/home/jaten/pkg/ccl/lib/compile-ccl.lisp"/5 ISO-8859-1) #x30200053EBBD> :EOFVAL (NIL) :FILE-NAME "ccl:lib;compile-ccl.lisp.newest" :START-OFFSET 0 :MAP #<HASH-TABLE :TEST EQ size 1083/1549 #x30200053E84D> :SAVE-SOURCE-TEXT NIL) 501
 (7F8DB95ABF70) : 38 (FCOMP-READ-LOOP "/home/jaten/pkg/ccl/lib/compile-ccl.lisp" "ccl:lib;compile-ccl.lisp.newest" 0 #<LEXICAL-ENVIRONMENT #x30200053F3DD> :NOT-COMPILE-TIME) 1965
 (7F8DB95AC160) : 39 (FCOMP-FILE "/home/jaten/pkg/ccl/lib/compile-ccl.lisp" "ccl:lib;compile-ccl.lisp.newest" 0 #<LEXICAL-ENVIRONMENT #x30200053F3DD>) 917
 (7F8DB95AC308) : 40 (%COMPILE-FILE "/home/jaten/pkg/ccl/lib/compile-ccl.lisp" "/home/jaten/pkg/ccl/bin/compile-ccl.lx64fsl" T NIL T T NIL :NO-TEXT :DEFER NIL #<BACKEND LINUXX8664 #x3020001C6D7D> :DEFAULT NIL 0) 2813
 (7F8DB95AC5D8) : 41 (COMPILE-FILE "ccl:lib;compile-ccl.lisp" :OUTPUT-FILE #P"ccl:bin;compile-ccl.lx64fsl.newest" :VERBOSE T :PRINT NIL :LOAD T :FEATURES NIL :TARGET :LINUXX8664 :SAVE-LOCAL-SYMBOLS T :SAVE-DOC-STRINGS T :SAVE-DEFINITIONS NIL :SAVE-SOURCE-LOCATIONS :NO-TEXT :EXTERNAL-FORMAT :DEFAULT :FORCE NIL :COMPILE-FILE-ORIGINAL-TRUENAME NIL :COMPILE-FILE-ORIGINAL-BUFFER-OFFSET 0 :BREAK-ON-PROGRAM-ERRORS :DEFER) 1909
 (7F8DB95AC738) : 42 (UPDATE-MODULES (SYSTEMS COMPILE-CCL) NIL) 501
 (7F8DB95AC7D8) : 43 (FUNCALL #'#<(:INTERNAL WITH-COMPILATION-UNIT-BODY COMPILE-CCL)>) 77
 (7F8DB95AC7F8) : 44 (CALL-WITH-COMPILATION-UNIT #<COMPILED-LEXICAL-CLOSURE (:INTERNAL WITH-COMPILATION-UNIT-BODY COMPILE-CCL) #x7F8DBAE6015F> :OVERRIDE NIL) 197
 (7F8DB95AC840) : 45 (COMPILE-CCL NIL) 229
 (7F8DB95AC868) : 46 (REBUILD-CCL :UPDATE NIL :FULL T :CLEAN T :KERNEL T :FORCE NIL :RELOAD T :EXIT NIL :RELOAD-ARGUMENTS NIL :VERBOSE NIL :OPTIONAL-FEATURES NIL :SAVE-SOURCE-LOCATIONS :NO-TEXT :ALLOW-CONSTANT-REDEFINITION T) 2549
 (7F8DB95ACA80) : 47 (CALL-CHECK-REGS REBUILD-CCL :FULL T) 221
 (7F8DB95ACAB8) : 48 (TOPLEVEL-EVAL (REBUILD-CCL :FULL T) NIL) 709
 (7F8DB95ACB60) : 49 (READ-LOOP :INPUT-STREAM #<SYNONYM-STREAM to *TERMINAL-IO* #x30200052904D> :OUTPUT-STREAM #<SYNONYM-STREAM to *TERMINAL-IO* #x302000528EED> :BREAK-LEVEL 0 :PROMPT-FUNCTION #<Compiled-function (:INTERNAL READ-LOOP) (Non-Global)  #x30000059C73F>) 2317
 (7F8DB95ACDC0) : 50 (TOPLEVEL-LOOP) 109
 (7F8DB95ACDF0) : 51 (FUNCALL #'#<(:INTERNAL (TOPLEVEL-FUNCTION (LISP-DEVELOPMENT-SYSTEM T)))>) 117
 (7F8DB95ACE10) : 52 (FUNCALL #'#<(:INTERNAL MAKE-MCL-LISTENER-PROCESS)>) 741
 (7F8DB95ACEB0) : 53 (RUN-PROCESS-INITIAL-FORM #<TTY-LISTENER listener(1) [Active] #x302000527C3D> (#<COMPILED-LEXICAL-CLOSURE # #x3020005274AF>)) 717
 (7F8DB95ACF48) : 54 (FUNCALL #'#<(:INTERNAL (%PROCESS-PRESET-INTERNAL (PROCESS)))> #<TTY-LISTENER listener(1) [Active] #x302000527C3D> (#<COMPILED-LEXICAL-CLOSURE # #x3020005274AF>)) 389
 (7F8DB95ACF98) : 55 (FUNCALL #'#<(:INTERNAL THREAD-MAKE-STARTUP-FUNCTION)>) 301
1 > 


More information about the Openmcl-devel mailing list