NANRI southly
southly
/ package.lisp
Created
January 18, 2010 14:45
— forked from smeghead/scheme_baton.lisp
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ;; -*- Mode: Lisp; Syntax: Common-Lisp -*- | |
| ;;; Package Management | |
| (in-package :cl-user) | |
| (defpackage :hige | |
| (:use :cl) | |
| #+ABCL (:shadow :y-or-n-p) | |
| (:export #:pin | |
| #:pon |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ;; 今開いているソースを 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
/ gist:608520
Created
October 3, 2010 11:42
— forked from miyamuko/gist:608467
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ;; 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
/ framework.l
Created
February 28, 2012 05:18
— forked from bowbow99/framework.l
#xyzzy nanri-master から multiframe へ取り込んだ変更のテスト
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ;;; -*- 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 |