#630 encode-universal-time broken for some inputs

open
Bruno Haible
clisp (525)
5
2012-02-25
2012-02-25
Jonty
No

See this cut/paste from a lisp session. The first call succeeds, the second fails unexpectedly.

[81]> (encode-universal-time 0 0 1 1 1 1970)
2208988800
[82]> (encode-universal-time 0 0 1 1 1 1969)

*** - Erreur Win32 6 (ERROR_INVALID_HANDLE): The handle is invalid.
Rentrées possibles:
ABORT :R1 Abort main loop
Break 1 [83]>

The version info is as follows:

C:\Documents and Settings\Natou>clisp --version
GNU CLISP 2.49 (2010-07-07) (built on STSst063.jenty.by [150.0.0.63])
Software: GNU C 3.4.5 (mingw-vista special r3)
gcc -mno-cygwin -g -O2 -W -Wswitch -Wcomment -Wpointer-arith -Wimplicit -Wreturn
-type -Wmissing-declarations -Wno-sign-compare -Wno-format-nonliteral -O2 -fexpe
nsive-optimizations -falign-functions=4 -D_WIN32 -DENABLE_UNICODE -I/usr/local/i
nclude -DDYNAMIC_FFI -I. -L/usr/local/lib -lintl /usr/local/lib/libreadline.dll
.a -L/usr/local/lib -ltermcap /usr/local/lib/libavcall.a /usr/local/lib/libcallb
ack.a -luser32 -lws2_32 -lole32 -loleaut32 -luuid -liconv -L/usr/local/lib -lsig
segv libgnu_cl.a
SAFETY=0 HEAPCODES STANDARD_HEAPCODES GENERATIONAL_GC SPVW_BLOCKS SPVW_MIXED TRI
VIALMAP_MEMORY
libsigsegv 2.8
libiconv 1.13
libreadline 6.0
Features:
(READLINE REGEXP SYSCALLS I18N LOOP COMPILER CLOS MOP CLISP ANSI-CL COMMON-LISP
LISP=CL INTERPRETER SOCKETS GENERIC-STREAMS LOGICAL-PATHNAMES SCREEN FFI
GETTEXT UNICODE BASE-CHAR=CHARACTER PC386 WIN32)
C Modules: (clisp i18n syscalls regexp readline)
Installation directory: C:\Program Files\CLisp\clisp-2.49\ User language: ENGLISH
Machine: PC/386 (PC/?86) nom-************** [192.168.1.10]

Discussion