southly

;;; -*- 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

;; 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

;; 今開いているソースを 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

;; -*- Mode: Lisp; Syntax: Common-Lisp -*-

;;; Package Management
(in-package :cl-user)

(defpackage :hige
  (:use :cl)
  #+ABCL (:shadow :y-or-n-p)
  (:export #:pin
           #:pon