lockie

(use-modules (ice-9 threads)
             (sdl2)
             (sdl2 events)
             (sdl2 rect)
             (sdl2 render)
             (sdl2 video))

(define window-width  640)
(define window-height 480)

lockie

(ql:quickload :trivial-benchmark)

(proclaim '(optimize (speed 3) (safety 0) (debug 0)
            (compilation-speed 0) (space 0)))

(declaim (ftype (function (simple-vector) fixnum) sum-simple-vector))
(defun sum-simple-vector (v)
  (loop
    :with s :of-type fixnum := 0
    :for x :of-type fixnum :across v

lockie

# Copyright 2019 Gentoo Authors
# Distributed under the terms of the GNU General Public License v2

EAPI=8

PYTHON_COMPAT=( pypy{3,} python{2_7,3_{4,5,6,7,8,9,10,11}} )

inherit git-r3 python-any-r1 ninja-utils llvm

DESCRIPTION="A Common Lisp with LLVM back end and interoperation with C++"

lockie

(proclaim
 '(optimize (speed 3) (safety 0) (debug 0) (compilation-speed 0) (space 0)))

(ql:quickload (list :sdl2 :cl-liballegro))

(require :sdl2)
(require :cl-liballegro)

(princ 'liballegro)
(disassemble #'al:map-rgb)

lockie

(ql:quickload :alexandria)

(defstruct test
  (number (make-array 0 :element-type 'alexandria:array-index)
   :type (simple-array alexandria:array-index (*))))

(print (make-test))

lockie

 * Package:    dev-scheme/gerbil-0.16:0
 * Repository: src_prepare-overlay
 * Upstream:   https://github.com/vyzo/gerbil
 * USE:        abi_x86_64 amd64 elibc_glibc kernel_linux sqlite xml zlib
 * FEATURES:   compressdebug preserve-libs sandbox splitdebug userpriv usersandbox
>>> Unpacking source...
>>> Unpacking gerbil-0.16.tar.gz to /var/tmp/portage/dev-scheme/gerbil-0.16/work
>>> Source unpacked in /var/tmp/portage/dev-scheme/gerbil-0.16/work
>>> Preparing source in /var/tmp/portage/dev-scheme/gerbil-0.16/work/gerbil-0.16/src ...
>>> Source prepared.

lockie

#include <stdio.h>
#include <stdlib.h>
#include <stdbool.h>
#include <allegro5/allegro.h>

const float FPS = 60;

void trace_handler(const char* str)
{
    fprintf(stderr, "%s", str);