short aliases for lambda expression

caret-macro.lisp

;;; ref. http://blog.practical-scheme.net/gauche/20100428-shorter-names
;;;      http://d.hatena.ne.jp/higepon/20100511/1273584001

#+:xyzzy
(require 'cmu_loop)

(defmacro ^ (args . body)
  `(lambda ,args ,@body))

(defmacro define-caret-macros (chars)
  (flet ((reread (&rest args)
	   (read-from-string (format nil "~{~A~}" args))))
    `(progn
       ,@(loop for c across chars
	   for macsym = (reread '^ c)
	   for argsym = (reread c)
	   for macsym* = (reread '^ c '*)
	   for argsym* = (reread c '*)
	   collect
	   `(defmacro ,macsym (&body body)
	      (let ((#1=#:arg ',argsym))
		`(lambda (,#1#) ,@body)))
	   collect
	   `(defmacro ,macsym* (&body body)
	      (let ((#1# ',argsym*))
		`(lambda (&rest ,#1#) ,@body)))))))

(define-caret-macros
 "_abcdefghijklmnopqrstuvwxyz")