NANRI southly

southly / framework.l

Created February 28, 2012 05:18 — forked from bowbow99/framework.l

#xyzzy nanri-master から multiframe へ取り込んだ変更のテスト

	;;; -- mode: lisp; package: user --

	#\|
	使い方（暫定）:
	1. どこかへ framework.l と nanri-master-change-tests.l をダウンロード
	2. M-x load-file
	load file: path/to/framework.l
	3. M-x load-test-file
	test file: path/to/nanri-master-change-tests.l
	4. M-x change-tests

southly / gist:608520

Created October 3, 2010 11:42 — forked from miyamuko/gist:608467

	;; xyzzy の epsilon 周りがおかしい
	;;
	;; http://twitter.com/TwilightClover/status/26251344464
	;; http://www.ai.mit.edu/projects/iiip/doc/CommonLISP/HyperSpec/Body/convar_short-_tive-epsilon.html

	(defconstant my-short-float-epsilon
	(do* ((fe 1.1s0 fl)
	(fl 1.0s0 (/ fl 2.0s0)))
	((not (and (/= (+ 1.0s0 fl) 1.0s0)
	(> fe fl)))

southly / gist:559544

Created August 31, 2010 19:09 — forked from miyamuko/gist:472442

#xyzzy

	;; 今開いているソースを GitHub で開く

	;; xyzzy 0.2.2.235 のソース
	(defvar github-xyzzy-src
	"http://github.com/southly/xyzzy.src/blob/0.2.2.235")
	(defvar local-xyzzy-src
	"X:/src/xyzzy/")

	(defun show-current-source-on-github ()
	(interactive)

southly / package.lisp

Created January 18, 2010 14:45 — forked from smeghead/scheme_baton.lisp