Lovesan

#define __STDC_CONSTANT_MACROS

#include <stdint.h>
#include <inttypes.h>
#include <windows.h>
#include <stdio.h>

extern "C"
{
#include <libavfilter/avfilter.h>

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

#!/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

(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

#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

(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*