λ lambda abbrev

meta-sentences.lisp

@@ -0,0 +1,10 @@
+(load "utils.lisp")
+
+(defun main ()
+  (loop with seen
+        with fmt = (read-line)
+        for len = 10 then (length sentence)
+        for sentence = (format nil fmt len)
+        until (member len seen)
+        do (nunionf seen (list len))
+        do (format t "~3d ~a~%" (length sentence) sentence)))

utils.lisp

@@ -629,7 +629,8 @@
 
 (abbrevs dbind  destructuring-bind
          mvbind multiple-value-bind
-         mvsetq multiple-value-setq)
+         mvsetq multiple-value-setq
+         λ      lambda)
 
 ;; not great
 (defmacro propmacro (propname)