kurohuku

(defun make-nesting-print-fn (up-pre down-pre &optional (*standard-output* *standard-output*))
  (let ((counter 0))
    (list
     ;;count-up
     (lambda (obj)
       (incf counter)
       (dotimes (i counter)
	 (format t "~A" up-pre))

kurohuku

(defun read-line (buf)
  (let ((start (point)))
    (end-of-line)
    (prog1
        (buffer-substring start (point))
      (forward-char))))

kurohuku

;;;; Emacs Lisp

(require 'cl)

(setf *opening-stream-buffers*
      (make-hash-table))

(defmacro with-default-values (binds &rest body)
  `(progn
     ,@(mapcar

kurohuku

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

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

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