Skip to content

Instantly share code, notes, and snippets.

View RobBlackwell's full-sized avatar

Robert Blackwell RobBlackwell

View GitHub Profile
@RobBlackwell
RobBlackwell / gist:4ed1aaf78154d386c4a2
Last active August 29, 2015 14:09
Common Lisp Notes

Use Quicklisp

http://www.quicklisp.org/

Use the SLIME provided with Quicklisp

(ql:quickload "quicklisp-slime-helper")

Update your Quicklisp

@RobBlackwell
RobBlackwell / Richorama's benchmark in ANSI C
Last active January 4, 2016 19:09
Richorama's benchmark in ANSI C
#include <stdio.h>
#include <uriparser/Uri.h>
#include <time.h>
int main(void)
{
clock_t start = clock() / (CLOCKS_PER_SEC / 1000);
UriParserStateA state;
@RobBlackwell
RobBlackwell / gist:8649897
Last active January 4, 2016 16:49
Richoramas Benchmark in Common Lisp
(ql:quickload "puri")
(defun test()
(loop for i from 0 to 1000000
collecting (puri:parse-uri "http://www.foo.com")))
(time (progn (test) t))
;;; 32 bit SBCL
@RobBlackwell
RobBlackwell / Python Copy Blob
Created November 19, 2013 15:54
Python code to copy blobs between Windows Azure Storage accounts
#!/usr/bin/env python
import sys
import datetime
import time
from datetime import timedelta
sys.path.append('/home/reb/local/azure-sdk-for-python/')
from azure.storage import *
@RobBlackwell
RobBlackwell / gist:5373163
Created April 12, 2013 16:12
Call the win32 API from SBCL on Windows
(ql:quickload :cffi)
(cffi:load-foreign-library "user32.dll")
(cffi:defctype hwnd :unsigned-int)
(cffi:defcfun ("MessageBoxA" message-box) :int
(wnd hwnd)
(text :string)
(caption :string)
@RobBlackwell
RobBlackwell / gist:2520279
Created April 28, 2012 17:09
Sample Windows Azure diagnostics.wadcfg
<?xml version="1.0" encoding="utf-8" ?>
<DiagnosticMonitorConfiguration xmlns="http://schemas.microsoft.com/ServiceHosting/2010/10/DiagnosticsConfiguration" configurationChangePollInterval="PT1M" overallQuotaInMB="4096">
<DiagnosticInfrastructureLogs bufferQuotaInMB="1024"
scheduledTransferLogLevelFilter="Verbose"
scheduledTransferPeriod="PT1M" />
<Logs bufferQuotaInMB="1024"
scheduledTransferLogLevelFilter="Verbose"
scheduledTransferPeriod="PT1M" />
@RobBlackwell
RobBlackwell / SQLAzureExportSample.cs
Created April 12, 2012 08:45
Sample showing how to export a SQL Azure database to BACPAC format.
using System;
using System.IO;
using System.Net;
using System.Runtime.Serialization;
using System.Text;
using System.Xml;
namespace SqlAzureBackup
{
class Program