Raise an error in LATE-INVERT as a last resort instead of returning nil.

smithzvk · Aug 1, 2011 · 173b1cc · 173b1cc
1 parent 6122530
commit 173b1cc
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/modf.lisp b/modf.lisp
@@ -229,7 +229,8 @@ functions ahead of time."
        ;; We use eval here because this setf form is hard to invert.  We could,
        ;; in principle, using GET-SETF-EXPANSION.
        (eval `(setf (,func ,new-struct) ',new-val))
-       new-struct ))))
+       new-struct ))
+    (t (error "How shall I invert ~S?" func))))
 
 #+closer-mop
 (defun late-class-reader-inverter (func new-val obj)