(defvar *crypt-library-loaded* nil)
(unless *crypt-library-loaded*
(uffi:load-foreign-library
(uffi:find-foreign-library "libcrypt"
(defvar *crypt-library-loaded* nil)
(unless *crypt-library-loaded*
(uffi:load-foreign-library
(uffi:find-foreign-library "libcrypt"
:supporting-libraries '("c"))
(setq *crypt-library-loaded* t)))
(in-package :postgresql-socket)
:supporting-libraries '("c"))
(setq *crypt-library-loaded* t)))
(in-package :postgresql-socket)
(4
(let ((salt (make-string 2)))
(read-socket-sequence salt socket)
(send-encrypted-password-message
socket
(crypt-password
(4
(let ((salt (make-string 2)))
(read-socket-sequence salt socket)
(send-encrypted-password-message
socket
(crypt-password
:connection connection :message message))))
(#.+notice-response-message+
(let ((message (read-socket-value-string socket)))
:connection connection :message message))))
(#.+notice-response-message+
(let ((message (read-socket-value-string socket)))
(warn 'postgresql-warning
:connection connection :message message))))
(#.+notification-response-message+
(warn 'postgresql-warning
:connection connection :message message))))
(#.+notification-response-message+