meta-sentences.lisp

@@ -1,10 +0,0 @@
-(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,8 +629,7 @@
 
 (abbrevs dbind  destructuring-bind
          mvbind multiple-value-bind
-         mvsetq multiple-value-setq
-         λ      lambda)
+         mvsetq multiple-value-setq)
 
 ;; not great
 (defmacro propmacro (propname)