From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Greg Troxel Newsgroups: gmane.lisp.guile.devel Subject: Re: i guess we're frozen & stuff Date: Tue, 11 Aug 2009 13:24:24 -0400 Message-ID: References: <8763cuwdkl.fsf@gnu.org> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: multipart/signed; boundary="=-=-="; micalg=pgp-sha1; protocol="application/pgp-signature" X-Trace: ger.gmane.org 1250011551 10680 80.91.229.12 (11 Aug 2009 17:25:51 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Tue, 11 Aug 2009 17:25:51 +0000 (UTC) Cc: guile-devel@gnu.org To: ludo@gnu.org (Ludovic =?iso-8859-1?Q?Court=E8s?=) Original-X-From: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Tue Aug 11 19:25:44 2009 Return-path: Envelope-to: guile-devel@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1Mav6T-00028J-Ox for guile-devel@m.gmane.org; Tue, 11 Aug 2009 19:25:42 +0200 Original-Received: from localhost ([127.0.0.1]:42047 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Mav6S-0006JP-50 for guile-devel@m.gmane.org; Tue, 11 Aug 2009 13:25:40 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1Mav5L-0005wG-H1 for guile-devel@gnu.org; Tue, 11 Aug 2009 13:24:31 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1Mav5H-0005un-Rr for guile-devel@gnu.org; Tue, 11 Aug 2009 13:24:31 -0400 Original-Received: from [199.232.76.173] (port=49851 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Mav5H-0005uj-NQ for guile-devel@gnu.org; Tue, 11 Aug 2009 13:24:27 -0400 Original-Received: from fnord.ir.bbn.com ([192.1.100.210]:54102) by monty-python.gnu.org with esmtps (TLS-1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1Mav5E-0000Gh-UN; Tue, 11 Aug 2009 13:24:25 -0400 Original-Received: by fnord.ir.bbn.com (Postfix, from userid 10853) id 6910F544F; Tue, 11 Aug 2009 13:24:24 -0400 (EDT) X-Hashcash: 1:20:090811:guile-devel@gnu.org::MeTGsMRywe6Kyw9h:0000000000000000000000000000000000000000002MfB X-Hashcash: 1:20:090811:ludo@gnu.org::MeTGsMRywe6Kyw9h:000007gav In-Reply-To: <8763cuwdkl.fsf@gnu.org> ("Ludovic =?iso-8859-1?Q?Court=E8s?= =?iso-8859-1?Q?=22's?= message of "Tue, 11 Aug 2009 17:54:50 +0200") User-Agent: Gnus/5.110011 (No Gnus v0.11) Emacs/22.3 (berkeley-unix) X-detected-operating-system: by monty-python.gnu.org: Genre and OS details not recognized. X-BeenThere: guile-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Developers list for Guile, the GNU extensibility library" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Errors-To: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.lisp.guile.devel:9070 Archived-At: --=-=-= Content-Transfer-Encoding: quoted-printable requested tests follow list gdt 52 ~/BUILD-GUILE-master/guile > ./meta/guile ;;; note: autocompilation is enabled, set GUILE_AUTO_COMPILE=3D0 ;;; or pass the --no-autocompile argument to disable. ;;; compiling /home/gdt/BUILD-GUILE-master/guile/guile-readline/ice-9/readl= ine.scm ;;; compiled /home/gdt/.cache/guile/ccache/1.9/home/gdt/BUILD-GUILE-master/= guile/guile-readline/ice-9/readline.scm.go Guile Scheme interpreter 0.5 on Guile 1.9.1 Copyright (C) 2001-2008 Free Software Foundation, Inc. Enter `,help' for help. scheme@(guile-user)> (use-modules (ice-9 i18n)) scheme@(guile-user)> (make-locale LC_ALL "does-not-exist") # scheme@(guile-user)> (map locale-day (map 1+ (iota 7))) ("Sun" "Mon" "Tue" "Wed" "Thu" "Fri" "Sat") scheme@(guile-user)> (map (lambda (day) (locale-day day (make-locale LC_ALL "C"))) (map 1+ (iota 7))) ("Sun" "Mon" "Tue" "Wed" "Thu" "Fri" "Sat") scheme@(guile-user)> (map (lambda (day) (locale-day day %global-locale)) (map 1+ (iota 7))) ("Sun" "Mon" "Tue" "Wed" "Thu" "Fri" "Sat") scheme@(guile-user)> (use-modules (srfi srfi-19)) (let ((d (string->date "Saturday, December 9, 2006" scheme@(guile-user)> "~A, ~B ~d= , ~Y"))) (date->time-utc (make-date (date-nanosecond d) (date-second d) (date-minute d) (date-hour d) (date-day d) (date-month d) (date-year d) 0))) Backtrace: In unknown file: ?: 0* [# #] In standard input: 35: 1* [#] In srfi/srfi-19.scm: 1462: 2 [string->date "Saturday, December 9, 2006" "~A, ~B ~d, ~Y"] In srfi/srfi-19.scm: 1438: 3 [priv:string->date # 0 "~A, ~B ~d, ~Y" ...] In srfi/srfi-19.scm: 176: 4 [priv:time-error string->date bad-date-template-string ...] In unknown file: ?: 5* [throw misc-error misc-error ...] ERROR: In procedure string->date: ERROR: TIME-ERROR type bad-date-template-string: ("Invalid string for " #index (string)>) scheme@(guile-user)> (use-modules (srfi srfi-19)) (let* ((str "Sun, 05 Jun 2005 18:33:00 +0200") (date (string->date str "~a, ~d ~b ~Y ~H:~M:~S ~z"))) (date->string date)) scheme@(guile-user)>=20 Backtrace: In unknown file: ?: 0* [# #] In standard input: 47: 1* [#] In srfi/srfi-19.scm: 1462: 2 [string->date "Sun, 05 Jun 2005 18:33:00 +0200" "~a, ~d ~b ~Y ~H:~= M:~S ~z"] In srfi/srfi-19.scm: 1438: 3 [priv:string->date # 0 "~a, ~d ~b ~Y ~H:~M:~S ~z" ...] In srfi/srfi-19.scm: 176: 4 [priv:time-error string->date bad-date-template-string ...] In unknown file: ?: 5* [throw misc-error misc-error ...] ERROR: In procedure string->date: ERROR: TIME-ERROR type bad-date-template-string: ("Invalid string for " #index (string)>) --=-=-= Content-Type: application/pgp-signature -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.9 (NetBSD) iEUEARECAAYFAkqBqUgACgkQ+vesoDJhHiW0SQCeOGuvLFLh3xnXxcBT5lW8dob0 0cUAl25eTQO/CpDEH+qAQ91jU9x5SBY= =wCF4 -----END PGP SIGNATURE----- --=-=-=--