youz

;;; -*- mode:lisp; package:makelc -*-

(eval-when (:compile-toplevel :load-toplevel :execute)
  (require "compile"))

(defpackage :makelc
  (:use :lisp :ed))

(in-package :makelc)
(export '(compile-package

xyzzy-17-638

Gitチートシート

msysGitをインストール後、 「スタート」＞「Git」＞「Git Bash」を実行して Git Bash を立ち上げ、 以下のコマンドを実行することで、さまざまな作業を行えます

簡単な用語集

youz

;;; http://www.p01.org/releases/#128b_raytraced_checkboard

(defun draw-checkboard (n &optional (s *standard-output*))
  (do* ((k 64) (i k))
      ((= (decf i (/ k)) 0))
    (let ((j (/ k i)))
      (princ (char "p.\n"
		   (if (and (integerp i) (evenp i))
		       2
		     (logand 1

southly

;;;; -*- Mode: Lisp -*-
;; (get-window-handle :filer)
;; で、ファイラのウィンドウハンドルが取得できる必要がある。
;;
;; ttray.l を書き換えた方がいろいろ自然だけどサンプルということで。

(provide "ttray-addon")

(eval-when (:compile-toplevel :load-toplevel :execute)
  (require "foreign")