Blocks don't evaluate their name

2026-09-05 07:50:21 -07:00
parent 8ec08a55ea
commit 58089ce956
3 changed files with 22 additions and 12 deletions
@@ -19,6 +19,7 @@
               body)))

 (defun princln (datum &optional print-char-fun)
+  "`princ' DATUM to PRINT-CHAR-FUN. Then print a newline."
  (princ datum print-char-fun)
  (funcall (or print-char-fun 'write-byte) ?\n))