Permalink
Browse files

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

  • Loading branch information...
1 parent 6122530 commit 173b1cc32970927f5b9d7849c9aa19f1308dc750 @kisp kisp committed Aug 1, 2011
Showing with 2 additions and 1 deletion.
  1. +2 −1 modf.lisp
View
@@ -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)

0 comments on commit 173b1cc

Please sign in to comment.