From elliott at elliottjohnson.net  Mon Jun  2 15:45:37 2008
From: elliott at elliottjohnson.net (elliott)
Date: Mon, 02 Jun 2008 08:45:37 -0700
Subject: [iolib-devel] receiving signed integers
Message-ID: <484415A1.3020709@elliottjohnson.net>

Hi,

I've reached a point in writing some code where I must read a singed 
32bit integer from a socket.  I've been using NET.SOCKETS:RECEIVE-FROM 
to read '(unsigned-byte 8) values.  Can anyone suggest a good library 
(or alternate method) to help with the conversion?

elliott


From mmstud at gmail.com  Mon Jun  2 21:01:14 2008
From: mmstud at gmail.com (Marko Tapio Manninen)
Date: Tue, 3 Jun 2008 00:01:14 +0300
Subject: [iolib-devel] series related error on loading iolib (openmcl 64bit)
Message-ID: <2AD80FC5-8F5C-4ED1-BCE2-308D84392B2D@gmail.com>

Hi,

i got this error, when trying to load iolib:

No MAKE-LOAD-FORM method is defined for #<CCL::SIMPLE-PROGRAM-ERROR  
#x3000413AE9BD>
    [Condition of type SIMPLE-ERROR]

Backtrace:
   0: (CCL::NO-MAKE-LOAD-FORM-FOR #<CCL::SIMPLE-PROGRAM-ERROR  
#x3000413AE9BD>)
       Locals:
         CCL::OBJECT = #<CCL::SIMPLE-PROGRAM-ERROR #x3000413AE9BD>
   1: (CCL::FASL-SCAN-USER-FORM #<CCL::SIMPLE-PROGRAM-ERROR  
#x3000413AE9BD>)
       [No Locals]
   2: (CCL::FASL-SCAN-CLFUN #<Anonymous Function #x3000413AE92F>)
       Locals:
         CCL::F = #<Anonymous Function #x3000413AE92F>
         CCL::NCODE-WORDS = 9
   3: (CCL::FASL-SCAN-CLFUN #<Anonymous Function #x3000413AE09F>)
       Locals:
         CCL::F = #<Anonymous Function #x3000413AE09F>
         CCL::NCODE-WORDS = 18
   4: (CCL::FASL-SCAN '((23 83) (47 "home:lisp;libs;series-2.2.9;s- 
code.lisp.newest")
        (4 #<Anonymous Function #x30004121A8FF>)
        (41 SERIES:*SUPPRESS-SERIES-WARNINGS* NIL
         "Suppress warnings when the restrictions are violated.")
        (41 SERIES:*SERIES-EXPRESSION-CACHE* T
         "Avoids multiple expansions")
        (41 SERIES:*LAST-SERIES-LOOP* NIL
         "Loop most recently created by SERIES.")
        (41 SERIES:*LAST-SERIES-ERROR* NIL
         "Info about error found most recently by SERIES.") ..))))
       Locals:
         CCL::FORMS = ((23 83) (47 "home:lisp;libs;series-2.2.9;s- 
code.lisp.newest") (4 #<Anonymous Function #x30004121A8FF>) (41  
SERIES:*SUPPRESS-SERIES-WARNINGS* NIL "Suppress warnings when the  
restrictions are violated.") (41 SERIES:*SERIES-EXPRESSION-CACHE* T  
"Avoids multiple expansions") (41 SERIES:*LAST-SERIES-LOOP* NIL "Loop  
most recently created by SERIES.") ...)
         CCL::*FASDUMP-HASH* = #<Unbound>
         CCL::*MAKE-LOAD-FORM-HASH* = #<Unbound>
         CCL::*FASDUMP-READ-PACKAGE* = #<Unbound>
         CCL::*FASDUMP-GLOBAL-OFFSETS* = #<Unbound>
         CCL::OP = (4 #<Anonymous Function #x3000413AE09F>)
   5: (CCL::FASL-SCAN-FORMS-AND-DUMP-FILE '((23 83) (47  
"home:lisp;libs;series-2.2.9;s-code.lisp.newest")
        (4 #<Anonymous Function #x30004121A8FF>)
        (41 SERIES:*SUPPRESS-SERIES-WARNINGS* NIL
         "Suppress warnings when the restrictions are violated.")
        (41 SERIES:*SERIES-EXPRESSION-CACHE* T
         "Avoids multiple expansions")
        (41 SERIES:*LAST-SERIES-LOOP* NIL
         "Loop most recently created by SERIES.")
        (41 SERIES:*LAST-SERIES-ERROR* NIL
         "Info about error found most recently by SERIES.") ..))) "/ 
Users/mmstud/lisp/libs/series-2.2.9/s-code.dx64fsl" #<LEXICAL- 
ENVIRONMENT  #x30004121AE5D>)
   6: (CCL::%COMPILE-FILE "/Users/mmstud/lisp/libs/series-2.2.9/s- 
code.lisp" "/Users/mmstud/lisp/libs/series-2.2.9/s-code.dx64fsl" 'T  
'NIL 'NIL 'NIL 'T 'T 'NIL 'NIL #<BACKEND DARWINX8664 #x30004071783D>  
':DEFAULT)
   7: (COMPILE-FILE #P"/Users/mmstud/lisp/libs/series-2.2.9/s- 
code.lisp" ':OUTPUT-FILE #P"/Users/mmstud/lisp/libs/series-2.2.9/s- 
code.dx64fsl" ':VERBOSE 'T ':PRINT 'NIL ':LOAD 'NIL ':FEATURES 'NIL  
':TARGET ':DARWINX8664 ':SAVE-LOCAL-SYMBOLS 'NIL ':SAVE-DOC-STRINGS 'T  
':SAVE-DEFINITIONS 'T ':EXTERNAL-FORMAT 'NIL ':FORCE ':DEFAULT)
   8: (#<STANDARD-METHOD ASDF:PERFORM (ASDF:COMPILE-OP
                                      ASDF:CL-SOURCE-FILE)> #<COMPILE- 
OP NIL #x3000411F9FED> #<CL-SOURCE-FILE "s-code" #x3000411FB94D>)
   9: (CCL::%%BEFORE-AND-AFTER-COMBINED-METHOD-DCODE '(NIL
        #<STANDARD-METHOD ASDF:PERFORM (ASDF:COMPILE-OP
                                        ASDF:CL-SOURCE-FILE)>
        . 4265093))
  10: (CCL::%%STANDARD-COMBINED-METHOD-DCODE '((#<STANDARD-METHOD  
ASDF:PERFORM :BEFORE (ASDF:COMPILE-OP
                                                 ASDF:SOURCE-FILE)>)
        (#<STANDARD-METHOD ASDF:PERFORM :AFTER (ASDF:OPERATION
                                                ASDF:COMPONENT)>)
        #<STANDARD-METHOD ASDF:PERFORM (ASDF:COMPILE-OP
                                        ASDF:CL-SOURCE-FILE)>) 4265093)
  11: (ASDF:OPERATE 'ASDF:LOAD-OP ':IOLIB-TESTS)
  12: (#<STANDARD-METHOD ASDF:PERFORM (ASDF:TEST-OP
                                      (EQL
                                       #<SYSTEM "iolib-tests"  
#x300040F9786D>))> #<TEST-OP NIL #x300040F97E3D> #<SYSTEM "iolib- 
tests" #x300040F9786D>)
  13: (CCL::%%BEFORE-AND-AFTER-COMBINED-METHOD-DCODE '(NIL
        #<STANDARD-METHOD ASDF:PERFORM (ASDF:TEST-OP
                                        (EQL
                                         #<SYSTEM "iolib-tests"  
#x300040F9786D>))>
        . 4265152))
  14: (CCL::%%STANDARD-COMBINED-METHOD-DCODE '(NIL
        (#<STANDARD-METHOD ASDF:PERFORM :AFTER (ASDF:OPERATION
                                                ASDF:COMPONENT)>)
        #<STANDARD-METHOD ASDF:PERFORM (ASDF:TEST-OP
                                        (EQL
                                         #<SYSTEM "iolib-tests"  
#x300040F9786D>))>) 4265152)
  15: (ASDF:OPERATE 'ASDF:TEST-OP ':IOLIB-TESTS)
  16: (CCL::%%BEFORE-AND-AFTER-COMBINED-METHOD-DCODE '(NIL
        #<STANDARD-METHOD ASDF:PERFORM (ASDF:TEST-OP
                                        (EQL
                                         #<SYSTEM "iolib"  
#x300040F9488D>))>
        . 4265212))
  17: (CCL::%%STANDARD-COMBINED-METHOD-DCODE '(NIL
        (#<STANDARD-METHOD ASDF:PERFORM :AFTER (ASDF:OPERATION
                                                ASDF:COMPONENT)>)
        #<STANDARD-METHOD ASDF:PERFORM (ASDF:TEST-OP
                                        (EQL
                                         #<SYSTEM "iolib"  
#x300040F9488D>))>) 4265212)
  18: (ASDF:OPERATE 'ASDF:TEST-OP ':IOLIB)
  19: (CCL::CALL-CHECK-REGS 'ASDF:OOS 'ASDF:TEST-OP ':IOLIB)
  32: (SWANK::CALL-WITH-CONNECTION #<CONNECTION  #x300040EDCC8D>  
#<Compiled-function (:INTERNAL
                           SWANK::HANDLE-REQUEST) (Non-Global)   
#x300040E6C25F>)
  33: (SWANK::HANDLE-REQUEST #<CONNECTION  #x300040EDCC8D>)
  34: (SWANK::REPL-LOOP #<CONNECTION  #x300040EDCC8D>)
  35: (SWANK::CALL-WITH-BINDINGS 'NIL #<COMPILED-LEXICAL-CLOSURE  
(:INTERNAL
                                  SWANK::SPAWN-REPL-THREAD)  
#x300040EFCC8F>)
  36: (CCL::RUN-PROCESS-INITIAL-FORM #<PROCESS repl-thread(5) [Active]  
#x300040ECAE5D> '(#<COMPILED-LEXICAL-CLOSURE (:INTERNAL
                                    CCL::%PROCESS-RUN-FUNCTION)  
#x300040ECADCF>))
  37: ((:INTERNAL CCL::%PROCESS-PRESET-INTERNAL) #<PROCESS repl- 
thread(5) [Active] #x300040ECAE5D> '(#<COMPILED-LEXICAL-CLOSURE  
(:INTERNAL
                                    CCL::%PROCESS-RUN-FUNCTION)  
#x300040ECADCF>))
  38: ((:INTERNAL CCL::THREAD-MAKE-STARTUP-FUNCTION))

I used most recent packages and repositories available today, and  
thought if it is worth of reporting. Im sending this message to both  
series-users (which seems not very active) and iolib-devel (which  
seems active).


From sionescu at common-lisp.net  Tue Jun  3 07:43:38 2008
From: sionescu at common-lisp.net (Stelian Ionescu)
Date: Tue, 3 Jun 2008 09:43:38 +0200
Subject: [iolib-devel] receiving signed integers
In-Reply-To: <484415A1.3020709@elliottjohnson.net>
References: <484415A1.3020709@elliottjohnson.net>
Message-ID: <20080603074338.GA154069@universe.org>

On Mon, Jun 02, 2008 at 08:45:37AM -0700, elliott wrote:
>Hi,
>
>I've reached a point in writing some code where I must read a singed 
>32bit integer from a socket.  I've been using 
>NET.SOCKETS:RECEIVE-FROM to read '(unsigned-byte 8) values.  Can 
>anyone suggest a good library (or alternate method) to help with the 
>conversion?

I'm afraid that you'll have to do manual conversion for the moment until
I'll add the proper routines to write into arrays other than
'(unsigned-byte 8). Here's a piece of code that can do just that,
albeit slowly.

(defun aref-32 (ub8-array &optional (offset 0) (endianess :little-endian) (type :signed))
  (let ((value
         (ecase endianess
           (:big-endian
              (+ (ash (aref ub8-array offset) 24)
                 (ash (aref ub8-array (+ 1 offset)) 16)
                 (ash (aref ub8-array (+ 2 offset)) 8)
                 (aref ub8-array (+ 3 offset))))
           (:little-endian
              (+ (aref ub8-array offset)
                 (ash (aref ub8-array (+ 1 offset)) 8)
                 (ash (aref ub8-array (+ 2 offset)) 16)
                 (ash (aref ub8-array (+ 3 offset)) 24))))))
    (if (and (eq :signed type) (logbitp 31 value))
      (lognot (logxor value #xFFFFFFFF))
      value)))

HU> (aref-32 #(255 0 0 0) 0 :big-endian :unsigned)
4278190080
HU> (aref-32 #(255 0 0 0) 0 :little-endian :unsigned)
255
HU> (aref-32 #(255 0 0 0) 0 :big-endian :signed)
-16777216
HU> (aref-32 #(255 0 0 0) 0 :little-endian :signed)
255

-- 
Stelian Ionescu a.k.a. fe[nl]ix
Quidquid latine dictum sit, altum videtur.
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 197 bytes
Desc: not available
URL: <https://mailman.common-lisp.net/pipermail/iolib-devel/attachments/20080603/2d7682e3/attachment.sig>

From sionescu at common-lisp.net  Tue Jun  3 07:48:31 2008
From: sionescu at common-lisp.net (Stelian Ionescu)
Date: Tue, 3 Jun 2008 09:48:31 +0200
Subject: [iolib-devel] series related error on loading iolib (openmcl
	64bit)
In-Reply-To: <2AD80FC5-8F5C-4ED1-BCE2-308D84392B2D@gmail.com>
References: <2AD80FC5-8F5C-4ED1-BCE2-308D84392B2D@gmail.com>
Message-ID: <20080603074831.GB154069@universe.org>

On Tue, Jun 03, 2008 at 12:01:14AM +0300, Marko Tapio Manninen wrote:
>Hi,
>
>i got this error, when trying to load iolib:
>
>No MAKE-LOAD-FORM method is defined for #<CCL::SIMPLE-PROGRAM-ERROR 
>#x3000413AE9BD>
>   [Condition of type SIMPLE-ERROR]

I think that this is an OpenMCL bug since I've tested iolib on a few versions
of OpenMCL - on PPC and Intel/64 and it compiled series fine.

-- 
Stelian Ionescu a.k.a. fe[nl]ix
Quidquid latine dictum sit, altum videtur.
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 197 bytes
Desc: not available
URL: <https://mailman.common-lisp.net/pipermail/iolib-devel/attachments/20080603/a1d73497/attachment.sig>

From elliott at elliottjohnson.net  Tue Jun  3 13:02:07 2008
From: elliott at elliottjohnson.net (elliott)
Date: Tue, 03 Jun 2008 06:02:07 -0700
Subject: [iolib-devel] receiving signed integers
In-Reply-To: <20080603074338.GA154069@universe.org>
References: <484415A1.3020709@elliottjohnson.net>
	<20080603074338.GA154069@universe.org>
Message-ID: <484540CF.8050703@elliottjohnson.net>

Stelian Ionescu wrote:
> I'm afraid that you'll have to do manual conversion for the moment until
> I'll add the proper routines to write into arrays other than
> '(unsigned-byte 8). Here's a piece of code that can do just that,
> albeit slowly...
>
>   
Cool.  Thanks for the code snippet as well.
elliott


From mmstud at gmail.com  Wed Jun  4 05:49:14 2008
From: mmstud at gmail.com (Marko Tapio Manninen)
Date: Wed, 4 Jun 2008 08:49:14 +0300
Subject: Fwd: [iolib-devel] series related error on loading iolib (openmcl
	64bit)
References: <20080603074831.GB154069@universe.org>
Message-ID: <B8F5ABE6-2A7C-4C41-ADEE-4F7B5C192F82@gmail.com>

You were right. It was a bug, but also i had to change series s- 
package.lisp #+mcl to #+ccl.

Thanks,
-Marko

>
> On Tue, Jun 03, 2008 at 12:01:14AM +0300, Marko Tapio Manninen wrote:
>> Hi,
>>
>> i got this error, when trying to load iolib:
>>
>> No MAKE-LOAD-FORM method is defined for #<CCL::SIMPLE-PROGRAM-ERROR
>> #x3000413AE9BD>
>>  [Condition of type SIMPLE-ERROR]
>
> I think that this is an OpenMCL bug since I've tested iolib on a few  
> versions
> of OpenMCL - on PPC and Intel/64 and it compiled series fine.
>
> -- 
> Stelian Ionescu a.k.a. fe[nl]ix
> Quidquid latine dictum sit, altum videtur.



From mmstud at gmail.com  Wed Jun  4 07:58:20 2008
From: mmstud at gmail.com (Marko Tapio Manninen)
Date: Wed, 4 Jun 2008 10:58:20 +0300
Subject: [iolib-devel] UTF-8 CRLF and UTF-8 CR tests fails
Message-ID: <18CB86B5-2FF8-4D31-90D0-349E0884D66C@gmail.com>

When i run asdf:test-op for iolib, i got several tests failed, but  
they share common things:

;; Test "unicode_demo_utf-8_cr.txt" UTF-8 CR [INPUT] --> UTF-8 CRLF  
[OUTPUT].
;; Test "unicode_demo_utf-8_cr.txt" UTF-8 CR [INPUT] --> UTF-8 CR  
[OUTPUT].

so every test where there is UTF-8 CRLF [OUTPUT] or UTF-8 CR [OUTPUT]  
fails.

Im using openmcl 64bit on macbook.

Id also like to see tutorial for making simple socket server and  
client for sending messages and triggering events with iolib. If  
someone could direct, id appreciate that.

-Marko


From sionescu at common-lisp.net  Wed Jun  4 08:19:02 2008
From: sionescu at common-lisp.net (Stelian Ionescu)
Date: Wed, 4 Jun 2008 10:19:02 +0200
Subject: [iolib-devel] UTF-8 CRLF and UTF-8 CR tests fails
In-Reply-To: <18CB86B5-2FF8-4D31-90D0-349E0884D66C@gmail.com>
References: <18CB86B5-2FF8-4D31-90D0-349E0884D66C@gmail.com>
Message-ID: <20080604081902.GA182591@universe.org>

On Wed, Jun 04, 2008 at 10:58:20AM +0300, Marko Tapio Manninen wrote:
>When i run asdf:test-op for iolib, i got several tests failed, but 
>they share common things:
>
>;; Test "unicode_demo_utf-8_cr.txt" UTF-8 CR [INPUT] --> UTF-8 CRLF 
>[OUTPUT].
>;; Test "unicode_demo_utf-8_cr.txt" UTF-8 CR [INPUT] --> UTF-8 CR 
>[OUTPUT].
>
>so every test where there is UTF-8 CRLF [OUTPUT] or UTF-8 CR [OUTPUT] 
>fails.
>
>Im using openmcl 64bit on macbook.

that might be related to babel, please try to run babel's test suite

>Id also like to see tutorial for making simple socket server and 
>client for sending messages and triggering events with iolib. If 
>someone could direct, id appreciate that.

there's an example here: http://common-lisp.net/~sionescu/misc/echo-server.lisp

-- 
Stelian Ionescu a.k.a. fe[nl]ix
Quidquid latine dictum sit, altum videtur.
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 197 bytes
Desc: not available
URL: <https://mailman.common-lisp.net/pipermail/iolib-devel/attachments/20080604/463ccd64/attachment.sig>

From mmstud at gmail.com  Wed Jun  4 12:01:13 2008
From: mmstud at gmail.com (Marko Tapio Manninen)
Date: Wed, 4 Jun 2008 15:01:13 +0300
Subject: [iolib-devel] UTF-8 CRLF and UTF-8 CR tests fails
In-Reply-To: <20080604081902.GA182591@universe.org>
References: <18CB86B5-2FF8-4D31-90D0-349E0884D66C@gmail.com>
	<20080604081902.GA182591@universe.org>
Message-ID: <CE6433EB-DEEA-4426-AD13-A071162463A4@gmail.com>

Babel test suite gives this:

Unknown character name - "udcf0" .
    [Condition of type SIMPLE-ERROR]

 From sources there is two places where it is used:

(deftest utf-8b.1
     (string-to-octets (coerce #(#\a #\b #\udcf0) 'unicode-string)
                       :encoding :utf-8b)

My OS is 10.5.3

Stelian Ionescu kirjoitti 4.6.2008 kello 11.19:

> On Wed, Jun 04, 2008 at 10:58:20AM +0300, Marko Tapio Manninen wrote:
>> When i run asdf:test-op for iolib, i got several tests failed, but
>> they share common things:
>>
>> ;; Test "unicode_demo_utf-8_cr.txt" UTF-8 CR [INPUT] --> UTF-8 CRLF
>> [OUTPUT].
>> ;; Test "unicode_demo_utf-8_cr.txt" UTF-8 CR [INPUT] --> UTF-8 CR
>> [OUTPUT].
>>
>> so every test where there is UTF-8 CRLF [OUTPUT] or UTF-8 CR [OUTPUT]
>> fails.
>>
>> Im using openmcl 64bit on macbook.
>
> that might be related to babel, please try to run babel's test suite
>
>> Id also like to see tutorial for making simple socket server and
>> client for sending messages and triggering events with iolib. If
>> someone could direct, id appreciate that.
>
> there's an example here: http://common-lisp.net/~sionescu/misc/echo-server.lisp

Thanks. There was also a slight problem when run-server:

Unknown keyword argument :FAMILY in (:FAMILY
                                      :INTERNET
                                      :LOCAL-HOST
                                      @127.0.0.1
                                      :LOCAL-PORT
                                      ECHO-SERVER::PORT
                                      :BACKLOG
                                      5
                                      :REUSE-ADDRESS
                                      T).   ..
    [Condition of type CCL::SIMPLE-PROGRAM-ERROR]


>
>
> -- 
> Stelian Ionescu a.k.a. fe[nl]ix
> Quidquid latine dictum sit, altum videtur.
> _______________________________________________
> iolib-devel mailing list
> iolib-devel at common-lisp.net
> http://common-lisp.net/cgi-bin/mailman/listinfo/iolib-devel



From mmstud at gmail.com  Fri Jun  6 05:35:05 2008
From: mmstud at gmail.com (Marko Tapio Manninen)
Date: Fri, 6 Jun 2008 08:35:05 +0300
Subject: [iolib-devel] traceback help
Message-ID: <8820C7B5-3C0E-4773-8A04-C235781CCF1F@gmail.com>

Hi,

every now and then i get the mysterious traceback with emacs and slime  
and i cant always figure out, how to detect the problem. In this case  
anonymous function is called with invalid arguments, but how do i  
know, what is the specific function, where it is and so on? This error  
comes, when using iolib tutorial socket server and while it talk about  
ccl threads, i thought if you could help with it:

Invalid program: Too many arguments in call to #<Anonymous Function  
#x30004108C64F>:
1 arguments provided, at most 0 accepted.
    [Condition of type CCL::SIMPLE-PROGRAM-ERROR]

Backtrace:
   0: (IO.MULTIPLEX::MIN-TIMEOUT 6397.371749698D0 6402.371506881D0 1)
       Locals:
         IO.MULTIPLEX::TIMEOUTS = (6397.371749698D0 6402.371506881D0 1)
   1: (#<STANDARD-METHOD IO.MULTIPLEX:EVENT-DISPATCH  
(IO.MULTIPLEX:EVENT-BASE)> #<event base, 1 FDs monitored, using:  
#<kqueue(2) multiplexer> #x3000415EC40D> ':ONE-SHOT 'NIL ':TIMEOUT 10  
':MAX-TIMEOUT 1)
       Locals:
         IO.MULTIPLEX::ONE-SHOT = NIL
         IO.MULTIPLEX::TIMEOUT = 10
         IO.MULTIPLEX::MAX-TIMEOUT = 1
         IO.MULTIPLEX::GOT-FD-EVENTS-P = NIL
         IO.MULTIPLEX::GOT-FD-TIMEOUTS-P = NIL
         IO.MULTIPLEX::GOT-TIMERS-P = NIL
   2: (CCL::%CALL-NEXT-METHOD '(NIL
        #<STANDARD-METHOD IO.MULTIPLEX:EVENT-DISPATCH  
(IO.MULTIPLEX:EVENT-BASE)>
        . 2638791))
       Locals:
         CCL::ARGS = NIL
         CCL::*INTERRUPT-LEVEL* = 0
         CCL::*INTERRUPT-LEVEL* = -1
         CDR = NIL
         METHOD-FUNCTION = #<METHOD-FUNCTION IO.MULTIPLEX:EVENT- 
DISPATCH (IO.MULTIPLEX:EVENT-BASE)>
       Catch-tags:
         NIL
   3: (CCL::%%STANDARD-COMBINED-METHOD-DCODE '(#<STANDARD-METHOD  
IO.MULTIPLEX:EVENT-DISPATCH :AROUND (IO.MULTIPLEX:EVENT-BASE)>
        #<STANDARD-METHOD IO.MULTIPLEX:EVENT-DISPATCH  
(IO.MULTIPLEX:EVENT-BASE)>) 2638791)
       Locals:
         CCL::CELL-2 = (#<STANDARD-METHOD IO.MULTIPLEX:EVENT-DISPATCH  
(IO.MULTIPLEX:EVENT-BASE)> . 2638791)
         #:G47718 = #<METHOD-FUNCTION IO.MULTIPLEX:EVENT- 
DISPATCH :AROUND (IO.MULTIPLEX:EVENT-BASE)>
   4: ((:INTERNAL ECHO-SERVER::%RUN-SERVER ECHO-SERVER:RUN-SERVER))
       Locals:
         ECHO-SERVER::TIMEOUT = 10
         ECHO-SERVER::PORT = 7000
         ECHO-SERVER::HOST = @0.0.0.0
         CCL::*INTERRUPT-LEVEL* = 0
         CCL::*INTERRUPT-LEVEL* = -1
       Catch-tags:
         NIL
   5: (CCL::RUN-PROCESS-INITIAL-FORM #<PROCESS Anonymous(7) [Active]  
#x3000417C327D> '(#<COMPILED-LEXICAL-CLOSURE (:INTERNAL
                                    CCL::%PROCESS-RUN-FUNCTION)  
#x3000417C310F>))
       Locals:
         CCL::INITIAL-FORM = (#<COMPILED-LEXICAL-CLOSURE (:INTERNAL  
CCL::%PROCESS-RUN-FUNCTION) #x30004163AA0F>)
         CCL::EXITED = NIL
         #:G59697 = (PROCESS-RESET)
         CCL::%HANDLERS% = NIL
         #:ABORT = #<RESTART ABORT #x1632B5D>
         #:ABORT-BREAK = #<RESTART ABORT-BREAK #x1632B0D>
         CCL::%RESTARTS% = NIL
       Catch-tags:
         (:RESTART ABORT-BREAK)
         NIL
   6: ((:INTERNAL CCL::%PROCESS-PRESET-INTERNAL) #<PROCESS  
Anonymous(7) [Active] #x3000417C327D> '(#<COMPILED-LEXICAL-CLOSURE  
(:INTERNAL
                                    CCL::%PROCESS-RUN-FUNCTION)  
#x3000417C310F>))
       Locals:
         CCL::INITIAL-FORM = (#<COMPILED-LEXICAL-CLOSURE (:INTERNAL  
CCL::%PROCESS-RUN-FUNCTION) #x30004163AA0F>)
         *CURRENT-PROCESS* = #<PROCESS Initial(0) [Active]  
#x300040432DAD>
         CCL::SYMS = (CCL::*FREE-XPS* CCL::*FREE-CIRCULARITY-HASH- 
TABLES* CCL::*VINSN-VARPARTS* CCL::*VINSN-LABEL-FREELIST* CCL::*VINSN- 
FREELIST* CCL::*LCELL-FREELIST* ...)
         VALUES = (NIL NIL #<POOL  #x300041640DFD> #<POOL   
#x300041640DCD> #<POOL  #x300041640D9D> #<POOL  #x300041640D6D> ...)
       Catch-tags:
         NIL
   7: ((:INTERNAL CCL::THREAD-MAKE-STARTUP-FUNCTION))
       Locals:
         CCL::TCR = 144432
         CCL::THREAD = #<LISP-THREAD Anonymous [tcr @ #x11A180]  
#x30004163ADBD>
         CCL::*CURRENT-LISP-THREAD* = #<LISP-THREAD Initial [tcr @  
#x1007A0] #x3000404020ED>
         CCL::INITIAL-FUNCTION = (#<Compiled-function (:INTERNAL CCL:: 
%PROCESS-PRESET-INTERNAL) (Non-Global)  #x30004043065F> #<PROCESS  
Anonymous(7) [Active] #x30004163AA9D> (#<COMPILED-LEXICAL-CLOSURE  
(:INTERNAL CCL::%PROCESS-RUN-FUNCTION) #x30004163AA0F>))



From elliott at elliottjohnson.net  Fri Jun  6 15:21:16 2008
From: elliott at elliottjohnson.net (elliott)
Date: Fri, 06 Jun 2008 08:21:16 -0700
Subject: [iolib-devel] traceback help
In-Reply-To: <8820C7B5-3C0E-4773-8A04-C235781CCF1F@gmail.com>
References: <8820C7B5-3C0E-4773-8A04-C235781CCF1F@gmail.com>
Message-ID: <484955EC.7000604@elliottjohnson.net>

Marko Tapio Manninen wrote:
> Hi,
>
> every now and then i get the mysterious traceback with emacs and slime 
> and i cant always figure out, how to detect the problem. In this case 
> anonymous function is called with invalid arguments, but how do i 
> know, what is the specific function, where it is and so on? 

I'm not sure of your level of familiarity with debugging, but usually 
when I get a backtrace I locate the area of code it's referring to and 
put break points or TRACE the function calls to see things a bit 
clearer.  The fact that this involves an anonymous function call I'd say 
to pay close attention to lambda statements, LABELS, FLET's and the 
like.  I would spend some time with the primary method for 
IO.MULTIPLEX:EVENT-DISPATCH as the backtrace indicates that was the most 
recent method called before the backtrace.

I've rarely used (*)MCL, so I'm not sure that I can be a big help on 
that end.  Looking at the code I can't see any function calls with extra 
arguments, so it could be a bug local to your CCL or something else 
strange.  Have you tried another lisp implementation to see if the 
problem is cross implementation?

elliott

> This error comes, when using iolib tutorial socket server and while it 
> talk about ccl threads, i thought if you could help with it:
>
> Invalid program: Too many arguments in call to #<Anonymous Function 
> #x30004108C64F>:
> 1 arguments provided, at most 0 accepted.
>    [Condition of type CCL::SIMPLE-PROGRAM-ERROR]
>
> Backtrace:
>   0: (IO.MULTIPLEX::MIN-TIMEOUT 6397.371749698D0 6402.371506881D0 1)
>       Locals:
>         IO.MULTIPLEX::TIMEOUTS = (6397.371749698D0 6402.371506881D0 1)
>   1: (#<STANDARD-METHOD IO.MULTIPLEX:EVENT-DISPATCH 
> (IO.MULTIPLEX:EVENT-BASE)> #<event base, 1 FDs monitored, using: 
> #<kqueue(2) multiplexer> #x3000415EC40D> ':ONE-SHOT 'NIL ':TIMEOUT 10 
> ':MAX-TIMEOUT 1)
>       Locals:
>         IO.MULTIPLEX::ONE-SHOT = NIL
>         IO.MULTIPLEX::TIMEOUT = 10
>         IO.MULTIPLEX::MAX-TIMEOUT = 1
>         IO.MULTIPLEX::GOT-FD-EVENTS-P = NIL
>         IO.MULTIPLEX::GOT-FD-TIMEOUTS-P = NIL
>         IO.MULTIPLEX::GOT-TIMERS-P = NIL
>   2: (CCL::%CALL-NEXT-METHOD '(NIL
>        #<STANDARD-METHOD IO.MULTIPLEX:EVENT-DISPATCH 
> (IO.MULTIPLEX:EVENT-BASE)>
>        . 2638791))
>       Locals:
>         CCL::ARGS = NIL
>         CCL::*INTERRUPT-LEVEL* = 0
>         CCL::*INTERRUPT-LEVEL* = -1
>         CDR = NIL
>         METHOD-FUNCTION = #<METHOD-FUNCTION 
> IO.MULTIPLEX:EVENT-DISPATCH (IO.MULTIPLEX:EVENT-BASE)>
>       Catch-tags:
>         NIL
>   3: (CCL::%%STANDARD-COMBINED-METHOD-DCODE '(#<STANDARD-METHOD 
> IO.MULTIPLEX:EVENT-DISPATCH :AROUND (IO.MULTIPLEX:EVENT-BASE)>
>        #<STANDARD-METHOD IO.MULTIPLEX:EVENT-DISPATCH 
> (IO.MULTIPLEX:EVENT-BASE)>) 2638791)
>       Locals:
>         CCL::CELL-2 = (#<STANDARD-METHOD IO.MULTIPLEX:EVENT-DISPATCH 
> (IO.MULTIPLEX:EVENT-BASE)> . 2638791)
>         #:G47718 = #<METHOD-FUNCTION IO.MULTIPLEX:EVENT-DISPATCH 
> :AROUND (IO.MULTIPLEX:EVENT-BASE)>
>   4: ((:INTERNAL ECHO-SERVER::%RUN-SERVER ECHO-SERVER:RUN-SERVER))
>       Locals:
>         ECHO-SERVER::TIMEOUT = 10
>         ECHO-SERVER::PORT = 7000
>         ECHO-SERVER::HOST = @0.0.0.0
>         CCL::*INTERRUPT-LEVEL* = 0
>         CCL::*INTERRUPT-LEVEL* = -1
>       Catch-tags:
>         NIL
>   5: (CCL::RUN-PROCESS-INITIAL-FORM #<PROCESS Anonymous(7) [Active] 
> #x3000417C327D> '(#<COMPILED-LEXICAL-CLOSURE (:INTERNAL
>                                    CCL::%PROCESS-RUN-FUNCTION) 
> #x3000417C310F>))
>       Locals:
>         CCL::INITIAL-FORM = (#<COMPILED-LEXICAL-CLOSURE (:INTERNAL 
> CCL::%PROCESS-RUN-FUNCTION) #x30004163AA0F>)
>         CCL::EXITED = NIL
>         #:G59697 = (PROCESS-RESET)
>         CCL::%HANDLERS% = NIL
>         #:ABORT = #<RESTART ABORT #x1632B5D>
>         #:ABORT-BREAK = #<RESTART ABORT-BREAK #x1632B0D>
>         CCL::%RESTARTS% = NIL
>       Catch-tags:
>         (:RESTART ABORT-BREAK)
>         NIL
>   6: ((:INTERNAL CCL::%PROCESS-PRESET-INTERNAL) #<PROCESS Anonymous(7) 
> [Active] #x3000417C327D> '(#<COMPILED-LEXICAL-CLOSURE (:INTERNAL
>                                    CCL::%PROCESS-RUN-FUNCTION) 
> #x3000417C310F>))
>       Locals:
>         CCL::INITIAL-FORM = (#<COMPILED-LEXICAL-CLOSURE (:INTERNAL 
> CCL::%PROCESS-RUN-FUNCTION) #x30004163AA0F>)
>         *CURRENT-PROCESS* = #<PROCESS Initial(0) [Active] #x300040432DAD>
>         CCL::SYMS = (CCL::*FREE-XPS* 
> CCL::*FREE-CIRCULARITY-HASH-TABLES* CCL::*VINSN-VARPARTS* 
> CCL::*VINSN-LABEL-FREELIST* CCL::*VINSN-FREELIST* 
> CCL::*LCELL-FREELIST* ...)
>         VALUES = (NIL NIL #<POOL  #x300041640DFD> #<POOL  
> #x300041640DCD> #<POOL  #x300041640D9D> #<POOL  #x300041640D6D> ...)
>       Catch-tags:
>         NIL
>   7: ((:INTERNAL CCL::THREAD-MAKE-STARTUP-FUNCTION))
>       Locals:
>         CCL::TCR = 144432
>         CCL::THREAD = #<LISP-THREAD Anonymous [tcr @ #x11A180] 
> #x30004163ADBD>
>         CCL::*CURRENT-LISP-THREAD* = #<LISP-THREAD Initial [tcr @ 
> #x1007A0] #x3000404020ED>
>         CCL::INITIAL-FUNCTION = (#<Compiled-function (:INTERNAL 
> CCL::%PROCESS-PRESET-INTERNAL) (Non-Global)  #x30004043065F> #<PROCESS 
> Anonymous(7) [Active] #x30004163AA9D> (#<COMPILED-LEXICAL-CLOSURE 
> (:INTERNAL CCL::%PROCESS-RUN-FUNCTION) #x30004163AA0F>))
>
> _______________________________________________
> iolib-devel mailing list
> iolib-devel at common-lisp.net
> http://common-lisp.net/cgi-bin/mailman/listinfo/iolib-devel



From mmstud at gmail.com  Fri Jun  6 18:12:21 2008
From: mmstud at gmail.com (Marko Tapio Manninen)
Date: Fri, 6 Jun 2008 21:12:21 +0300
Subject: [iolib-devel] traceback help
In-Reply-To: <484955EC.7000604@elliottjohnson.net>
References: <8820C7B5-3C0E-4773-8A04-C235781CCF1F@gmail.com>
	<484955EC.7000604@elliottjohnson.net>
Message-ID: <3AE8A5FA-52CF-4CD9-9E8D-DE69AD1D75FC@gmail.com>

elliott kirjoitti 6.6.2008 kello 18.21:

> Marko Tapio Manninen wrote:
>> Hi,
>>
>> every now and then i get the mysterious traceback with emacs and  
>> slime and i cant always figure out, how to detect the problem. In  
>> this case anonymous function is called with invalid arguments, but  
>> how do i know, what is the specific function, where it is and so on?
>
> I'm not sure of your level of familiarity with debugging, but  
> usually when I get a backtrace I locate the area of code it's  
> referring to and put break points or TRACE the function calls to see  
> things a bit clearer.  The fact that this involves an anonymous  
> function call I'd say to pay close attention to lambda statements,  
> LABELS, FLET's and the like.  I would spend some time with the  
> primary method for IO.MULTIPLEX:EVENT-DISPATCH as the backtrace  
> indicates that was the most recent method called before the backtrace.

Ok. Just wanted to know if there is something, i should specially know.

> I've rarely used (*)MCL, so I'm not sure that I can be a big help on  
> that end.  Looking at the code I can't see any function calls with  
> extra arguments, so it could be a bug local to your CCL or something  
> else strange.  Have you tried another lisp implementation to see if  
> the problem is cross implementation?

I can get it work with sbcl, well lets say, i dont get any errors at  
least. So it has something to do with openmcl. Im also trying to get  
bourdeaux threads test suite working and see, if there is something,  
but it takes also some extra efforts...

>
>
> elliott
>
>> This error comes, when using iolib tutorial socket server and while  
>> it talk about ccl threads, i thought if you could help with it:
>>
>> Invalid program: Too many arguments in call to #<Anonymous Function  
>> #x30004108C64F>:
>> 1 arguments provided, at most 0 accepted.
>>   [Condition of type CCL::SIMPLE-PROGRAM-ERROR]



From mmstud at gmail.com  Sat Jun  7 08:29:40 2008
From: mmstud at gmail.com (Marko Tapio Manninen)
Date: Sat, 7 Jun 2008 11:29:40 +0300
Subject: [iolib-devel] SBCL compilation problem
Message-ID: <66CA9A2E-D0BD-405B-A326-06291D6B84E7@gmail.com>

I got this error when trying to compile iolib with SBCL .17:

; registering #<SYSTEM BORDEAUX-THREADS {11955E71}> as BORDEAUX-THREADS
; registering #<SYSTEM BORDEAUX-THREADS-TEST {1213D521}> as
; BORDEAUX-THREADS-TEST

debugger invoked on a TYPE-ERROR in thread #<THREAD "initial  
thread" {116DF7A9}>:
   The value NIL is not of type PACKAGE.

Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL.

restarts (invokable by number or by possibly-abbreviated name):
   0: [TRY-RECOMPILING] Try recompiling grovel
   1: [RETRY          ] Retry performing #<ASDF:COMPILE-OP NIL  
{11F9AF29}> on
                        #<CFFI-GROVEL:GROVEL-FILE "grovel" {11E002A9}>.
   2: [ACCEPT         ] Continue, treating #<ASDF:COMPILE-OP NIL  
{11F9AF29}> on
                        #<CFFI-GROVEL:GROVEL-FILE "grovel" {11E002A9}>  
as having
                        been successful.
   3: [ABORT          ] Exit debugger, returning to top level.

((LABELS CFFI-GROVEL::PROCESS-FORM) (IN-PACKAGE :NET.SOCKETS))
0] 


From sionescu at common-lisp.net  Sat Jun  7 11:50:39 2008
From: sionescu at common-lisp.net (Stelian Ionescu)
Date: Sat, 7 Jun 2008 13:50:39 +0200
Subject: [iolib-devel] SBCL compilation problem
In-Reply-To: <66CA9A2E-D0BD-405B-A326-06291D6B84E7@gmail.com>
References: <66CA9A2E-D0BD-405B-A326-06291D6B84E7@gmail.com>
Message-ID: <20080607115039.GA2358061@universe.org>

On Sat, Jun 07, 2008 at 11:29:40AM +0300, Marko Tapio Manninen wrote:
>I got this error when trying to compile iolib with SBCL .17:

could you please post the entire backtrace ?

-- 
Stelian Ionescu a.k.a. fe[nl]ix
Quidquid latine dictum sit, altum videtur.
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 197 bytes
Desc: not available
URL: <https://mailman.common-lisp.net/pipermail/iolib-devel/attachments/20080607/552474e7/attachment.sig>

From mmstud at gmail.com  Sat Jun  7 13:11:34 2008
From: mmstud at gmail.com (Marko Tapio Manninen)
Date: Sat, 7 Jun 2008 16:11:34 +0300
Subject: [iolib-devel] SBCL compilation problem
In-Reply-To: <20080607115039.GA2358061@universe.org>
References: <66CA9A2E-D0BD-405B-A326-06291D6B84E7@gmail.com>
	<20080607115039.GA2358061@universe.org>
Message-ID: <20398C69-01E3-44BB-AEF7-C681F1AFFF70@gmail.com>


Stelian Ionescu kirjoitti 7.6.2008 kello 14.50:

> On Sat, Jun 07, 2008 at 11:29:40AM +0300, Marko Tapio Manninen wrote:
>> I got this error when trying to compile iolib with SBCL .17:
>
> could you please post the entire backtrace ?

Well that was whole traceback from terminal run sbcl, but i changed my  
emacs + slime to use sbcl and got more:

The value NIL is not of type PACKAGE.
    [Condition of type TYPE-ERROR]

Restarts:
  0: [TRY-RECOMPILING] Try recompiling grovel
  1: [RETRY] Retry performing #<ASDF:COMPILE-OP NIL {11E78731}> on  
#<CFFI-GROVEL:GROVEL-FILE "grovel" {11D42899}>.
  2: [ACCEPT] Continue, treating #<ASDF:COMPILE-OP NIL {11E78731}> on  
#<CFFI-GROVEL:GROVEL-FILE "grovel" {11D42899}> as having been  
successful.
  3: [ABORT] Return to SLIME's top level.
  4: [TERMINATE-THREAD] Terminate this thread (#<THREAD "repl- 
thread" {1268F779}>)

Backtrace:
   0: ((LABELS CFFI-GROVEL::PROCESS-FORM) (IN-PACKAGE :NET.SOCKETS))
       Locals:
         SB-DEBUG::ARG-0 = (IN-PACKAGE :NET.SOCKETS)
   1: (CFFI-GROVEL::GENERATE-C-FILE #P"/Users/mmstud/lisp/libs/iolib/ 
net.sockets/grovel.lisp" #P"/Users/mmstud/lisp/libs/iolib/net.sockets/ 
grovel.fasl")
       Locals:
         SB-DEBUG::ARG-0 = #P"/Users/mmstud/lisp/libs/iolib/ 
net.sockets/grovel.lisp"
         SB-DEBUG::ARG-1 = #P"/Users/mmstud/lisp/libs/iolib/ 
net.sockets/grovel.fasl"
   2: (CFFI-GROVEL:PROCESS-GROVEL-FILE #P"/Users/mmstud/lisp/libs/ 
iolib/net.sockets/grovel.lisp" #P"/Users/mmstud/lisp/libs/iolib/ 
net.sockets/grovel.fasl")
       Locals:
         CFFI-GROVEL::INPUT-FILE = #P"/Users/mmstud/lisp/libs/iolib/ 
net.sockets/grovel.lisp"
         CFFI-GROVEL::OUTPUT-DEFAULTS = #P"/Users/mmstud/lisp/libs/ 
iolib/net.sockets/grovel.fasl"
   3: ((SB-PCL::FAST-METHOD ASDF:PERFORM (ASDF:COMPILE-OP CFFI- 
GROVEL:GROVEL-FILE)) #<unavailable argument> #<unavailable argument>  
#<ASDF:COMPILE-OP NIL {11E78731}> #<CFFI-GROVEL:GROVEL-FILE  
"grovel" {11D42899}>)
       Locals:
         SB-DEBUG::ARG-0 = :<NOT-AVAILABLE>
         SB-DEBUG::ARG-1 = :<NOT-AVAILABLE>
         SB-DEBUG::ARG-2 = #<ASDF:COMPILE-OP NIL {11E78731}>
         SB-DEBUG::ARG-3 = #<CFFI-GROVEL:GROVEL-FILE  
"grovel" {11D42899}>
   4: ((LAMBDA (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. SB-PCL::.ARG0.  
SB-PCL::.ARG1.)) #<unavailable argument> #<unavailable argument>  
#<ASDF:COMPILE-OP NIL {11E78731}> #<CFFI-GROVEL:GROVEL-FILE  
"grovel" {11D42899}>)
       Locals:
         SB-DEBUG::ARG-0 = :<NOT-AVAILABLE>
         SB-DEBUG::ARG-1 = :<NOT-AVAILABLE>
         SB-DEBUG::ARG-2 = #<ASDF:COMPILE-OP NIL {11E78731}>
         SB-DEBUG::ARG-3 = #<CFFI-GROVEL:GROVEL-FILE  
"grovel" {11D42899}>
   5: ((SB-PCL::FAST-METHOD ASDF:PERFORM :AROUND (ASDF:COMPILE-OP CFFI- 
GROVEL::CC-FLAGS-MIXIN)) #<unavailable argument> #S(SB-PCL::FAST- 
METHOD-CALL :FUNCTION #<CLOSURE (LAMBDA #) {12DA7E15}> :PV NIL :NEXT- 
METHOD-CALL NIL :ARG-INFO (2)) #<ASDF:COMPILE-OP NIL {11E78731}>  
#<CFFI-GROVEL:GROVEL-FILE "grovel" {11D42899}>)
       Locals:
         SB-DEBUG::ARG-0 = :<NOT-AVAILABLE>
         SB-DEBUG::ARG-1 = #S(SB-PCL::FAST-METHOD-CALL :FUNCTION  
#<CLOSURE (LAMBDA (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. SB- 
PCL::.ARG0. ...)) {12DA7E15}> :PV NIL :NEXT-METHOD-CALL NIL :ARG-INFO  
(2))
         SB-DEBUG::ARG-2 = #<ASDF:COMPILE-OP NIL {11E78731}>
         SB-DEBUG::ARG-3 = #<CFFI-GROVEL:GROVEL-FILE  
"grovel" {11D42899}>
   6: ((SB-PCL::FAST-METHOD ASDF:PERFORM :AROUND (ASDF:COMPILE-OP  
ASDF:CL-SOURCE-FILE)) #<unavailable argument> #S(SB-PCL::FAST-METHOD- 
CALL :FUNCTION #<FUNCTION (SB-PCL::FAST-METHOD  
ASDF:PERFORM :AROUND ...)> :PV NIL :NEXT-METHOD-CALL #S(SB-PCL::FAST- 
METHOD-CALL :FUNCTION #<CLOSURE # {12DA7E15}> :PV NIL :NEXT-METHOD- 
CALL NIL :ARG-INFO (2)) :ARG-INFO (2)) #<ASDF:COMPILE-OP NIL  
{11E78731}> #<CFFI-GROVEL:GROVEL-FILE "grovel" {11D42899}>)
       Locals:
         SB-DEBUG::ARG-0 = :<NOT-AVAILABLE>
         SB-DEBUG::ARG-1 = #S(SB-PCL::FAST-METHOD-CALL :FUNCTION  
#<FUNCTION (SB-PCL::FAST-METHOD ASDF:PERFORM :AROUND ...)> :PV  
NIL :NEXT-METHOD-CALL #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<CLOSURE  
(LAMBDA #) {12DA7E15}> :PV NIL :NEXT-METHOD-CALL NIL :ARG-INFO  
(2)) :ARG-INFO (2))
         SB-DEBUG::ARG-2 = #<ASDF:COMPILE-OP NIL {11E78731}>
         SB-DEBUG::ARG-3 = #<CFFI-GROVEL:GROVEL-FILE  
"grovel" {11D42899}>
   7: ((LAMBDA NIL))
       [No Locals]
   8: ((FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK))
       [No Locals]
   9: ((FLET #:WITHOUT-INTERRUPTS-BODY-[CALL-WITH-RECURSIVE-LOCK]522))
       [No Locals]
  10: (SB-THREAD::CALL-WITH-RECURSIVE-LOCK #<CLOSURE (FLET SB- 
THREAD::WITH-RECURSIVE-LOCK-THUNK) {44FF6CD}> #S(SB-THREAD:MUTEX :NAME  
"big compiler lock" :%OWNER #<SB-THREAD:THREAD "repl- 
thread" {1268F779}> :LUTEX #<unknown pointer object, widetag=#x5E  
{1049A027}>))
       Locals:
         SB-DEBUG::ARG-0 = #<CLOSURE (FLET SB-THREAD::WITH-RECURSIVE- 
LOCK-THUNK) {44FF6CD}>
         SB-DEBUG::ARG-1 = #S(SB-THREAD:MUTEX :NAME "big compiler  
lock" :%OWNER #<SB-THREAD:THREAD "repl-thread" {1268F779}> :LUTEX  
#<unknown pointer object, widetag=#x5E {1049A027}>)
  11: (SB-C::%WITH-COMPILATION-UNIT #<CLOSURE (LAMBDA NIL) {12D2D2C5}>) 
[:EXTERNAL]
       Locals:
         SB-DEBUG::ARG-0 = 1
         SB-DEBUG::ARG-1 = #<CLOSURE (LAMBDA NIL) {12D2D2C5}>
  12: (ASDF:OPERATE ASDF:LOAD-OP IOLIB)[:EXTERNAL]
       Locals:
         SB-DEBUG::ARG-0 = 2
         SB-DEBUG::ARG-1 = ASDF:LOAD-OP
         SB-DEBUG::ARG-2 = IOLIB
  13: (SB-INT:SIMPLE-EVAL-IN-LEXENV (ASDF:OOS (QUOTE ASDF:LOAD-OP)  
(QUOTE IOLIB)) #<NULL-LEXENV>)
       Locals:
         SB-DEBUG::ARG-0 = (ASDF:OOS (QUOTE ASDF:LOAD-OP) (QUOTE IOLIB))
         SB-DEBUG::ARG-1 = #<NULL-LEXENV>
  14: (SWANK::EVAL-REGION "(asdf:oos 'asdf:load-op 'iolib)
      ")
       Locals:
         SB-DEBUG::ARG-0 = "(asdf:oos 'asdf:load-op 'iolib)
                           "
  15: ((LAMBDA NIL))
       [No Locals]