cbaggers

using System;
using System.Runtime.CompilerServices;
using System.Runtime.InteropServices;

// Value Tuples that are blittable and so can be used in Unity's Jobs
// Replace with HashCode with System.HashCode when available

namespace Foo.Unmanaged
{
    public static class NTuple

cbaggers

%% I do not know if this is the right way to do this, but I didn't find an example
%% of how to do it properly :)

-module(epgsql_codec_emote_slot_override_v0).
-behaviour(epgsql_codec).

-include_lib("vanguard/include/ale.hrl").

-export([init/2, names/0, encode/3, decode/3, decode_text/3]).

cbaggers

(PROGN
 (DECLAIM (FTYPE (FUNCTION NIL SINGLE-FLOAT) BLOOP))
 (DEFUN BLOOP ()
   (THE SINGLE-FLOAT (BITS-SINGLE-FLOAT -4194304))))

cbaggers

(defun u! (x y z)
  (check-type x (unsigned-byte 16))
  (check-type y (unsigned-byte 16))
  (check-type z (unsigned-byte 16))
  (make-array 3 :element-type '(unsigned-byte 16)
	      :initial-contents (list x y z)))

(defun u3-to-morton (u3)
  (let ((x (aref u3 0))

cbaggers

(eval-when (:compile-toplevel :load-toplevel :execute)
  (setf *print-circle* t))

#||

How to trigger issue:

First run (make-instance 'trigger-object) to see the overflow.

Then run (make-circular) to see that the list created in print-object

cbaggers

{application, psqlcp, [
    {description, "Postgresql connection pool with poolboy"},
    {vsn, "0.1"},
    {applications, [kernel, stdlib]},
    {modules, [psqlcp, psqlcp_worker]},
    {registered, [psqlcp]},
    {mod, {psqlcp, []}},
    {env, [
        {pools, [
            {fk, [

cbaggers

#include <ApplicationServices/ApplicationServices.h>
#include <Cocoa/Cocoa.h>

@interface BlortAppDelegate : NSObject <NSApplicationDelegate>
@end

@implementation BlortAppDelegate
- (void)applicationDidFinishLaunching:(NSNotification *)aNotification
{
    NSLog(@"applicationDidFinishLaunching");

cbaggers

#+sbcl
(eval-when (:compile-toplevel :load-toplevel :execute)
  (sb-int:set-floating-point-modes :traps nil))

(defpackage :a (:use :cl))

(in-package :a)

(cffi:define-foreign-library blort
  (:darwin "/Users/Baggers/Library/Developer/Xcode/DerivedData/blort-ewxiurstjoibccbijgkxqrtyvtbu/Build/Products/Debug/libblort.dylib"))

cbaggers

#+sbcl
(eval-when (:compile-toplevel :load-toplevel :execute)
  (sb-int:set-floating-point-modes :traps nil))

(defpackage :moo (:use :cl))

(in-package :moo)

(cffi:define-foreign-library libsdl2
  (:darwin (:or (:framework "SDL2") (:default "libSDL2")))

cbaggers

#+sbcl
(eval-when (:compile-toplevel :load-toplevel :execute)
  (sb-int:set-floating-point-modes :traps nil))

(defpackage :moo (:use :cl :sdl2))

(in-package :moo)

(defun print! (x &rest args)
  (format t "~%~a~{ ~s~}" x args)