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

1	constant	引数をひとつとって、該当する定数リストをスタックにプッシュ
2	global_set	スタックのトップをグローバル変数に設定
3	global_ref	グローバル変数を参照し、スタックにプッシュ
4	lexical_set	スタックのトップをレキシカル変数に設定
5	lexical_ref	レキシカル変数を参照し、スタックにプッシュ
8	local_set	スタックのトップをローカル変数に設定
9	local_ref	ローカル変数を参照し、スタックにプッシュ
10	make_closure	引数をひとつとってクロージャを作成し、スタックにプッシュ
11	discard	スタックからポップし、値を破棄
12	goto	引数をひとつとって、goto

southly

(defvar *items*)
(defvar *item-buffer*)

(defun push-item ()
  (unless (string= "" *item-buffer*)
    (push (copy-seq *item-buffer*) *items*)
    (setf (fill-pointer *item-buffer*) 0)))

(defun init ()
  (setf *items* nil)

southly

diff --git a/cgi-bin/w3m-2ch.cgi b/cgi-bin/w3m-2ch.cgi
index 7165415..02ae1d4 100755
--- a/cgi-bin/w3m-2ch.cgi
+++ b/cgi-bin/w3m-2ch.cgi
@@ -465,7 +465,7 @@ PrintBoardList()
 	$awk 'BEGIN {
 					FS = "[<>]"
 
-					print "Content-Type: text/html"
+					print "Content-Type: text/html;charset=Shift_JIS"

southly

;; ２次割り当て問題の解を評価する(1) - 象徴ヶ淵 <http://d.hatena.ne.jp/knenet/20100626/1277567322>
;; 3.10 8パズルと2つの後者関数 - 象徴ヶ淵 <http://d.hatena.ne.jp/knenet/20090601/1243864248>

(defvar *size*)
(defvar *distance*)
(defvar *flow*)

(defun shuffle (lst)
  (let ((l (copy-seq lst))
        (len (1+ (length lst)))

southly

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

(in-package "junk")

(defvar *oauth-consumer-key* "コンシューマキー")
(defvar *oauth-consumer-secret* "コンシューマ秘密鍵")

(defun uri-encode-string (str)
  (si:www-url-encode str nil "0-9A-Za-z---._~"))

southly

From 7d9adc1ca6a0b47af576fcf2b4d1202a354abc51 Mon Sep 17 00:00:00 2001
From: NANRI <southly@gmail.com>
Date: Fri, 21 May 2010 03:43:49 +0900
Subject: [PATCH] multiframe : import.

commit fa46e91f2eae2ed302a93f2720a891bea3b91623
Author: mumurik <devnull@localhost>
Date:   Fri May 28 14:35:01 2010 +0900

    remove most of active_app_frame at disp.cc.

southly

--- symbol-macrolet.xml~	2010-05-19 05:11:05.373625000 +0900
+++ symbol-macrolet.xml	2010-05-19 05:12:34.483000000 +0900
@@ -1,3 +1,17 @@
+<?xml version="1.0" encoding="utf-8"?>
+<!DOCTYPE book [
+<!ELEMENT book (chapter*)>
+<!ELEMENT chapter (title,type,arguments?,package?,description,seealso*,link*,section,file?)>
+<!ELEMENT title (#PCDATA)>
+<!ELEMENT type (#PCDATA)>
+<!ELEMENT arguments (#PCDATA)>

southly

diff --git a/site-lisp/scala-mode.l b/site-lisp/scala-mode.l
index 956519b..a48879a 100644
--- a/site-lisp/scala-mode.l
+++ b/site-lisp/scala-mode.l
@@ -75,11 +75,12 @@
           *scala-mode-syntax-table*
           *scala-mode-indent-step*))
 
-(defun string-join (strs delim)
-  (let ((r nil))

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