Lovesan

(eval-when (:compile-toplevel :load-toplevel :execute)
  (unless (find-package 'bike)
    (ql:quickload 'bike)))

(named-readtables:in-readtable bike:bike-syntax)
(bike:use-namespace 'System)

;; The below is required to overcome internal bike optimizations related to property retrieval,
;;  which utilize Type.GetProperty internally, which does not work for COM objects.
;; Note that you should also use bike:reflection-invoke instead of invoke, for the same reasons.

Lovesan

;;;; -*- Mode: lisp; indent-tabs-mode: nil -*-

;;; Copyright (C) 2024, Dmitry Ignatiev <lovesan.ru at gmail.com>

;;; Permission is hereby granted, free of charge, to any person
;;; obtaining a copy of this software and associated documentation
;;; files (the "Software"), to deal in the Software without
;;; restriction, including without limitation the rights to use, copy,
;;; modify, merge, publish, distribute, sublicense, and/or sell copies
;;; of the Software, and to permit persons to whom the Software is

Lovesan

(define-dotnet-callable-class (sequence-enumerator
                               (:interfaces (IEnumerator :object))) ()
  "An implementation of IEnumerator<object> for CL sequences."
  (parent :initform nil :initarg :parent :reader se-parent)
  (seq :initform '() :initarg :sequence :reader se-sequence)
  (idx :initform -1 :reader se-index)
  (:property current :object :initform nil :reader se-current
                             :documentation "An element at current enumerator index")
  (:defmethod move-next :bool ()

Lovesan

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

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

(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

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

(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