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

(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

;;; 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

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

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

(defun sap-to-callable (ptr)
  (sb-alien:sap-alien 
    (sb-alien:alien-sap ptr)

Lovesan

// g++ -O0 -shared -o unwind.dll unwind.cxx
// OR
// cl.exe /nologo /Od /MD /EHa /LD /Fe:unwind.dll unwind.cxx
#include <iostream>
#include <exception>
#include <windows.h>

class Foo
{
public:

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

// cl.exe /nologo /clr /Od /MD /EHac /LD /Fe:sehlib.dll sehlib_net.cxx
using namespace System;
#include <iostream>

void throws_fn()
{
    std::cerr << ".NET throws exception" << std::endl;
    throw gcnew Exception();
}

Lovesan

// g++ -O0 -shared -o sehlib.dll sehlib.cxx
// OR
// cl.exe /nologo /Od /MD /EHac /LD /Fe:sehlib.dll sehlib.cxx
#include <iostream>
#include <exception>

void throws_fn()
{
    std::cerr << "C++ throws exception" << std::endl;
    throw std::exception();

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

Lovesan

#ifndef __COM_UTILS_HPP__
#define __COM_UTILS_HPP__

#include <oleidl.h>

template<class T>
class ComPtr
{
public:
    ComPtr()