akovalenko

Keybase proof

I hereby claim:

• I am akovalenko on github.
• I am akovalenko (https://keybase.io/akovalenko) on keybase.
• I have a public key ASA795wj16fJpsxUF1rKW2UKDFmvYqc9JE29OIgsDf9n_Qo

To claim this, I am signing this object:

akovalenko

(in-package :cl-postgres-async)

;;(defparameter *test-connection* '("test" "test" "" "localhost"))
(defvar *test-connection* '("test" "test" "" "localhost"))

(defun prompt-connection (&optional (list *test-connection*))
  (flet ((ask (name pos)
           (format *query-io* "~a (enter to keep '~a'): " name (nth pos list))
           (finish-output *query-io*)
           (let ((answer (read-line *query-io*)))

akovalenko

(defvar *ru-vowels* "аоуыэяёюие")

(defun vowelp (character) (position character *ru-vowels*))

(defun move-vowels (n &optional (input *standard-input*) (output *standard-output*))
  (let ((vowels 0))
   (loop
     (let ((character (read-char input nil :eof)))
       (when (eq  :eof character)
	 (return))

akovalenko

/* (c) Copyright 2010 Anton Kovalenko <anton@sw4me.com>.
   LICENSE:Do what you want with this software, but don't blame me.

   Compile it with gcc -lX11 -lXi.
*/
#define WATCH_XI2_TIMESTAMP "Time-stamp: <2010-08-14 19:39:55 anton>"
#include <X11/Xlib.h>
#include <X11/extensions/XInput2.h>
#include <X11/Xutil.h>
#include <stdio.h>

akovalenko

(in-package "SB-THREAD")

(define-alien-routine ("SetConsoleCtrlHandler" set-console-ctrl-handler) int
  (callback (function (:stdcall int) int))
  (enable int))

(defun windows-console-control-handler (event-code)
  (case event-code
    (0
       (flet ((interrupt-it ()