some.l

@@ -82,6 +82,8 @@ lc
 (princ "\n")
 
 (print (unwind-protect
+           ;; this is supposed to throw an error, so we can see if the
+           ;; cleanup-form is indeed evaluated
            (car)
          (print "cleanup-form\n\n")))