fukamachi

$ ros starter.ros 
While evaluating the form starting at line 127, column 0
  of #P"/usr/local/share/common-lisp/source/roswell/init.lisp":
Unhandled SB-INT:C-STRING-DECODING-ERROR in thread #<SB-THREAD:THREAD
                                                     "main thread" RUNNING
                                                      {1002D77563}>:
  :UTF-8 c-string decoding error:
    the octet sequence #(200 23) cannot be decoded.

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {1002D77563}>

fukamachi

require "formula"

class Chasen < Formula
  homepage "http://chasen-legacy.osdn.jp"
  url "http://iij.dl.osdn.jp/chasen-legacy/56305/chasen-2.4.5.tar.gz"
  sha256 "fd1a7afd73ed14e18b0fe82965c00a6baae383070360a4220fde01338611416a"

  head "git://git.osdn.jp/gitroot/chasen-legacy/chasen.git"

  def install

fukamachi

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

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

(defpackage :hige
  (:use :cl
        :drakma
        :cl-ppcre)
  #+ABCL (:shadow :y-or-n-p)

fukamachi

;; 第1回 Scheme コードバトン
;;
;; ■ これは何か？
;;   Scheme のコードをバトンのように回していき面白い物ができあがるのを楽しむ遊びです。
;;   次回 Shibuya.lisp で成果を発表します。
;;   Scheme 初心者のコードを書くきっかけに、中級者には他人のコードを読む機会になればと思います。
;;
;; ■ 2 つのルール
;;
;;   (1)自分がこれだと思える変更をコードに加えて2日以内に次の人にまわしてください。

fukamachi

(let ((default-directory (expand-file-name "~/Dropbox/home/.emacs.d")))
  (add-to-list 'load-path default-directory)
  (load (expand-file-name "~/Dropbox/home/.emacs.d/subdirs.el") t t t))

(if (file-exists-p (locate-library "init"))
  (load (locate-library "init") nil t nil))

fukamachi

;; anything-ari.el - Show animated Ari.

;; Copyright (C) 2010  Eitarow Fukamachi <fukamachi_e@ariel-networks.com>

;; Author: Eitarow Fukamachi <fukamachi_e@ariel-networks.com>
;; Twitter: http://twitter.com/nitro_idiot
;; Blog: http://e-arrows.sakura.ne.jp/
;;
;; Created: Dec 9, 2010
;; Version: 0.0.1

fukamachi

(defun group-by (pred list)
  (loop
    while list
    for cur = (pop list)
    collect
    (nreverse
      (loop with acc = (list cur)
            while list
            for x = (pop list)
            if (funcall pred cur x)

fukamachi

(in-package :cl-user)
(ql:quickload :cl-test-more)

(defun asdf-component-files (comp)
  (etypecase comp
    (asdf::cl-source-file
     (list (asdf:component-pathname comp)))
    (asdf::static-file nil)
    (asdf::component
     (loop for c in (asdf:module-components comp)

fukamachi

(defun clack-slime-search-buffer-package ()
  (let ((case-fold-search t)
        (regexp (concat "^(\\(clack.util:\\)?namespace\\>[ \t']*"
                        "\\([^\n)]+\\)")))
    (save-excursion
      (if (or (re-search-backward regexp nil t)
              (re-search-forward regexp nil t))
          (match-string-no-properties 2)
          (slime-search-buffer-package)))))
(setq slime-find-buffer-package-function 'clack-slime-search-buffer-package)

fukamachi

(defun port-available-p (port)
  (handler-case (let ((socket (usocket:socket-listen "127.0.0.1" port :reuse-address t)))
                  (usocket:socket-close socket))
    (usocket:address-in-use-error (e) (declare (ignore e)) nil)))

;; Find port number not in use from 50000 to 60000.
(loop for port from (+ 50000 (random 1000)) upto 60000
      if (port-available-p port)
        return port)