20:39:02pjbdlowe: I prefer to use let rather than setf: (cond ((let ((result (compute-result))) (do-something-with result) result)) …) ; not the empty body.
7:23:23scymtymthis SBCL commit https://github.com/sbcl/sbcl/commit/ab976f48db4ba8d72fb7bc13388bc4fc6e97c0fd will break named-readtable here https://github.com/melisgl/named-readtables/blob/master/src/cruft.lisp#L166