ページ 8 | Codetter（こーどったー）

#define CLSID_FileOpenDialog "{DC1C5A9C-E88A-4dde-A5A1-60F82A20AEF7}"
#define IID_IFileOpenDialog "{d57c7288-d4ad-4768-be02-9d969532d960}"
#usecom IFileOpenDialog IID_IFileOpenDialog CLSID_FileOpenDialog
#comfunc IFileOpenDialog_QueryInterface 0 int, int
#comfunc IFileOpenDialog_Show 3 int

#include <cstdint>

#include <GL/glut.h>

#runtime "hsp3cl"

#define ctype Person(%1,%2,%3,%4,%5) \
	%1_name.%2=%3 :\
	%1_age.%2=%4 :\

#module
	#define global u8(%1) ToUTF8(%1)
	#uselib "kernel32.dll"
	#func MultiByteToWideChar "MultiByteToWideChar" int, int, int, int, int, int
	#func WideCharToMultiByte "WideCharToMultiByte" int, int, int, int, int, int, int, int

#runtime "hsp3cl"
#cmpopt varinit 1

#module CharaBase _name,_hp,_mp,_waza
	#modcfunc name

(println "def")
(def seed 256)
(dotimes[i 3]
	(def rnd seed)
	(time(loop[i 0](when(< i 10000000)

#!reader=srfi/49
(import (srfi 49))
import
	srfi 1

;CommonLisp
(format t
	"~{~A~^~%~}~%"
	(loop for i from 1 to 100 collect
		(let (

TestXS.clj
(require 'XorShift)

(let [
	r_def (XorShift/make-XorShift-defaultSeed)

(defstruct SPerson
	name
	age
)