Lovesan

;;; This file reproduces tha fact that SBCL crashes
;;;   while .Net runtime is loaded
;;; .Net Core SDK must be installed

;;; run the file like 'sbcl --script sb-net-core-crash.lisp'

(defun version-compare (left right)
  (labels ((parse (c)
             ;; Given .Net version naming convention,
             ;;   3.0.0 is actually greater then 3.0.0-rc1

Lovesan

(eval-when (:compile-toplevel :load-toplevel :execute)

  (cffi:define-foreign-library oleaut32
    (t "oleaut32.dll"))

  (cffi:use-foreign-library oleaut32))

(cffi:defcfun ("GetActiveObject"
               %get-active-object
               :library oleaut32

Lovesan

function call_ec(f) {
    var tag = new EvalError('Continuation block no loger exists');
    try {
        f(function(rv) {
            tag.rv = rv;
            throw tag;
        });
    } catch(obj) {
        if(obj === tag) {
            return tag.rv;

Lovesan

// build like e.g. 
// cl.exe /nologo /O2 /I../ffmpeg-3.2.2-win64-lgpl/include /I../SDL2-2.0.5/include /MT ffexample.c SDL2.lib avcodec.lib avdevice.lib avformat.lib avutil.lib swresample.lib swscale.lib /link /libpath:../SDL2-2.0.5/lib/x64 /libpath:../ffmpeg-3.2.2-win64-lgpl/lib

#define __STDC_CONSTANT_MACROS

#ifndef UNICODE
#define UNICODE
#endif

#ifndef _UNICODE

Lovesan

(sb-alien:load-shared-object "sehlib.dll")

(sb-alien:define-alien-routine
  ("catches_fn" catches-fn)
  sb-alien:void)

(defun test-seh ()
  (handler-case
      (progn (catches-fn)
             (format *error-output*

Lovesan

(set-macro-character #\→ (lambda (s c)
                           (declare (ignore s c))
                           (error "Unexpected '→'")))

(set-macro-character #\λ
                     (lambda (s c)
                       (declare (ignore c))
                       (loop :with arg = (read s t nil t)
                             :for next = (peek-char t s t nil t)
                             :until (eql next #\→)

Lovesan

using namespace System.IO;
$ErrorActionPreference = 'Stop'

function VideoToGif{
    Param(
        [Parameter(Mandatory=$true)][string] $InFile,
        [Parameter(Mandatory=$true)][string] $OutFile,
        [int]$Width=320,
        [int]$Height=-1,
        [double]$Start=0.0,

Lovesan

#overall:
#gmp
#mpfr
#mpc
#isl
#binutils
#mingw-w64
#gcc
#zlib (optional, only native)

Lovesan

(in-package #:sb-vm)

(eval-when (:compile-toplevel :load-toplevel :execute)

  (defknown %m128+ ((simd-pack single-float) (simd-pack single-float))
      (simd-pack single-float)
      (movable foldable flushable always-translatable)
    :overwrite-fndb-silently t)

  (define-vop (%m128+)

Lovesan

#!/bin/bash
set -e

DATE_START=`date +%Y-%m-01`
DATE_END=`date +%Y-%m-%d`
USER_NAME=`git config user.name`
REPO_DIR=`realpath ./`
BRANCH_NAME='origin/master'

if [ -t 0 -a -t 1 ]; then