- (let ((res (ir1-convert-lambda `(lambda ,@(cdr thing))
- :source-name source-name
- :debug-name debug-name)))
- (setf (getf (functional-plist res) :fin-function) t)
- res))
+ (deprecation-warning 'instance-lambda 'lambda)
+ (ir1-convert-lambda `(lambda ,@(cdr thing))
+ :source-name source-name
+ :debug-name debug-name))