kurohuku

(defmacro with-collects ((&rest syms) &body body)
  (labels
      ((collector-expander (sym gtail)
         `(,sym (arg)
                (if (null ,sym)
                    (progn
                      (setf ,sym (cons arg nil))
                      (setf ,gtail ,sym)
                      arg)
                    (let ((last (cons arg nil)))

kurohuku

(defvar *test-function-table* (make-hash-table))

;; clause -> ((arg1 arg2 ... ) result) = ((arg1 arg2 ... ) :eq result)
;; clause -> ((arg1 arg2 ... ) :not result)
;; clause -> ((arg1 arg2 ... ) :test test-fn)
(defparameter *test-report-function*
  #'(lambda (fn-name args expected actual)
      (format t "TEST FAILED. Form: (~A ~{~A~^ ~}), Expected: ~A, Actual: ~A~%"
	      fn-name args expected actual)))

kurohuku

(asdf:oos 'asdf:load-op :cl+ssl)

(in-package :asdf-install)

(setf (symbol-function 'make-stream-from-url-old)
      #'make-stream-from-url)
(setf (symbol-function 'url-host-old)
      #'url-host)
(setf (symbol-function 'url-port-old)

kurohuku

(asdf:oos 'asdf:load-op :kmrcl)

(defun |#`-reader| (stream ch numarg)
  (declare (ignore ch numarg))
  (let (acc-fmt acc-args)
    (loop
       :for curr = (read-char stream)
       :until (char= curr #\`)
       :do
       (if (char= curr #\\)

kurohuku

(defclass template ()
  ((template :initarg :template :initform (error "template string is required"))
   (template-format-string)
   (dollar-symbols)))

(defun parse-template-string (str)
  (let (strs syms)
    (with-input-from-string (s str)
      (loop :named loop
	 :for ch = (read-char s nil nil)

kurohuku

(defmacro define-insertion-template (name template)
  (destructuring-bind (vars fmt)
      (parse-template template)
    (let* ((syms (mapcar 
		  (lambda (v)
		    `(,v ,(gensym)))
		  (remove-duplicates vars))))
      `(defun ,name ()
	 (interactive)
	 (let ,(mapcar 'second syms) 

kurohuku

(require 'cl)

;;; syntax-table
(defvar shorthand-syntax-table
  (make-syntax-table))

(defmacro with-shorthand-syntax (&rest body)
  `(with-syntax-table shorthand-syntax-table
     ,@body))
(defmacro sh:syntax (&rest body)

kurohuku

(in-package :asdf-install)
(defun make-ssl-stream (sock-stream)
  (let ((pkg (find-package 'CL+SSL)))
    (when pkg
      (funcall (find-symbol "MAKE-SSL-CLIENT-STREAM" pkg)
               sock-stream))))

(defun ssl-library-loaded? ()
  (find-package 'CL+SSL))

kurohuku

;;;; SRFI-42 Eager Comprehensions ( 先行評価的内包表記 ) in Common Lisp
(defpackage srfi-42
  (:use :cl)
  (:export ))

(in-package :srfi-42)


;;; Qualifiers

kurohuku

(defmacro case+ (form test &body clauses)
  (let ((gtest (gensym))
	(gform (gensym)))
    (labels
	((clause->or (clause)
	   (if (listp (car clause))
	       `((or
		  ,@(mapcar
		     #'(lambda (x)
			 `(funcall ,gtest ,gform ,x))