time= broken

Joel Reymont <[email protected]> Wed, 21 Jun 2006 17:48:43 +0100
Newsgroups gmane.lisp.clsql.devel
Message-ID <[email protected]>
I'm using CLSQL 3.6.1 with PostgreSQL 8.x and ACL 8.0.

time= appears to be broken and causes stack overflow

dbms> (get-time)
#<WALL-TIME: 2006-06-21 17:42:25.000000>

dbms> (setq x *)
#<WALL-TIME: 2006-06-21 17:42:25.000000>

dbms> (setq now (get-time))
#<WALL-TIME: 2006-06-21 17:42:53.000000>

dbms> (time= x now)
; Evaluation aborted

Stack overflow (signal 1000)
    [Condition of type excl:synchronous-operating-system-signal]

Restarts:
   0: [continue] continue computation
   1: [abort-request] Abort handling SLIME request.
   2: [abort] Abort entirely from this (lisp) process.

Backtrace:
   0: (swank::debug-in-emacs #<excl:synchronous-operating-system- 
signal @ #x10a88b7a>)
   1: (swank:swank-debugger-hook #<excl:synchronous-operating-system- 
signal @ #x10a88b7a> #<Function swank-debugger-hook>)
   2: (cerror "continue computation" excl:synchronous-operating- 
system-signal :format-control "Stack overflow (signal 1000)" :format- 
arguments nil)
   3: (clsql-sys::date->time #<WALL-TIME: 2006-06-21 00:00:00.000000>)
   4: (time= #<WALL-TIME: 2006-06-21 00:00:00.000000> #<WALL-TIME:  
2006-06-21 00:00:00.000000>)
   5: (time= #<WALL-TIME: 2006-06-21 00:00:00.000000> #<WALL-TIME:  
2006-06-21 00:00:00.000000>)
   6: (time= #<WALL-TIME: 2006-06-21 00:00:00.000000> #<WALL-TIME:  
2006-06-21 00:00:00.000000>)
   7: (time= #<WALL-TIME: 2006-06-21 00:00:00.000000> #<WALL-TIME:  
2006-06-21 00:00:00.000000>)
   8: (time= #<WALL-TIME: 2006-06-21 00:00:00.000000> #<WALL-TIME:  
2006-06-21 00:00:00.000000>)

--
http://wagerlabs.com/