+ (t nil)))
+
+(defun compiled-fun-or-lose (thing &optional (name thing))
+ (let ((fun (valid-extended-function-designator-for-disassemble-p thing)))
+ (if fun
+ fun
+ (error 'simple-type-error
+ :datum thing
+ :expected-type '(satisfies valid-extended-function-designator-for-disassemble-p)
+ :format-control "can't make a compiled function from ~S"
+ :format-arguments (list name)))))