From root at common-lisp.net  Wed Jan 18 16:23:41 2006
From: root at common-lisp.net (root)
Date: Wed, 18 Jan 2006 10:23:41 -0600 (CST)
Subject: [pg-devel] Auto-nag: pg link verifier failed
Message-ID: <20060118162341.E3EAC8044@common-lisp.net>

You are being nagged on because your project's
name showed up in the nightly Checkbot run.  Checkbot checks
for broken links etc.  This probably means that you are 
either pointing to a broken link or that someone is pointing
to a broken link on your site.  Or something else, it check's
a bunch of stuff.  Update your webpages or you shall be nagged
again next week.

To find out what's wrong with your webpages, please consult:

  http://common-lisp.net/checkbot/checkbot-common-lisp.net.html

Any questions?  You can reach the author of this cronjob at
admin at common-lisp.net

Thanks!


From root at common-lisp.net  Mon Jan 23 08:15:32 2006
From: root at common-lisp.net (root)
Date: Mon, 23 Jan 2006 02:15:32 -0600 (CST)
Subject: [pg-devel] Auto-nag: pg link verifier failed
Message-ID: <20060123081532.C5FE9377CB@common-lisp.net>

You are being nagged on because your project's
name showed up in the nightly Checkbot run.  Checkbot checks
for broken links etc.  This probably means that you are 
either pointing to a broken link or that someone is pointing
to a broken link on your site.  Or something else, it check's
a bunch of stuff.  Update your webpages or you shall be nagged
again next week.

To find out what's wrong with your webpages, please consult:

  http://common-lisp.net/checkbot/checkbot-common-lisp.net.html

Any questions?  You can reach the author of this cronjob at
clo-devel at common-lisp.net

Thanks!


From risto.laakso at gmail.com  Fri Jan 27 06:56:56 2006
From: risto.laakso at gmail.com (Risto Laakso)
Date: Fri, 27 Jan 2006 08:56:56 +0200
Subject: [pg-devel] Pg doesn't compile on OpenMCL, patch below
Message-ID: <439fc7a30601262256l78909b9fl@mail.gmail.com>

--- sysdep.lisp~        2005-12-20 00:21:50.000000000 +0200
+++ sysdep.lisp 2006-01-26 21:42:52.000000000 +0200
@@ -340,10 +340,16 @@
            (t (error "unknown encoding ~A" encoding)))
      #+(and sbcl sb-unicode)
      (cond ((string= encoding "SQL_ASCII") :ascii)
-           ((string= encoding  "LATIN1") :latin1)
+           ((string= encoding "LATIN1") :latin1)
            ((string= encoding "LATIN9") :latin9)
            ((string= encoding "UNICODE") :utf8)
            (t (error "unknown encoding ~A" encoding)))
+     #+openmcl
+     (cond ((string= encoding "SQL_ASCII") :unix)
+           ((string= encoding "LATIN1") :unix)
+           ((string= encoding "LATIN9") :unix)
+           ((string= encoding "UNICODE") :unix)
+           (t (error "unknown encoding ~A" encoding)))
      #+(or cmu gcl ecl abcl)
      (cond ((string= encoding "SQL_ASCII") :ascii)
            ((string= encoding "LATIN1") :latin1)
@@ -360,7 +366,7 @@
      #+(and :sbcl :sb-unicode)
      (sb-ext:string-to-octets string
                               :external-format
(implementation-name-for-encoding encoding))
-     #+(or cmu gcl ecl abcl)
+     #+(or cmu gcl ecl abcl openmcl)
      (if (member encoding '("SQL_ASCII" "LATIN1" "LATIN9") :test
#'string-equal)
          (let ((octets (make-array (length string) :element-type
'(unsigned-byte 8))))
            (map-into octets #'char-code string))
@@ -378,7 +384,7 @@
     ;; for implementations that have no support for character
     ;; encoding, we assume that the encoding is an octet-for-octet
     ;; encoding, and convert directly
-    #+(or cmu (and sbcl (not :sb-unicode)) gcl ecl abcl)
+    #+(or cmu (and sbcl (not :sb-unicode)) gcl ecl abcl openmcl)
     (let ((string (make-string (length bytes))))
       (map-into string #'code-char bytes))))