- `(macrolet ((frob (suffix answer &optional declaration)
- `(deftest ,(intern (concatenate 'string
- "DECLARATION-INFORMATION."
- (symbol-name ',x)
- suffix))
- (locally (declare ,@(when declaration
- (list declaration)))
- (cadr (assoc ',',x (dinfo optimize))))
- ,answer)))
- (frob ".DEFAULT" 1)
- (frob ".0" 0 (optimize (,x 0)))
- (frob ".1" 1 (optimize (,x 1)))
- (frob ".2" 2 (optimize (,x 2)))
- (frob ".3" 3 (optimize (,x 3)))
- (frob ".IMPLICIT" 3 (optimize ,x)))))
+ `(macrolet ((frob (suffix answer &optional declaration)
+ `(deftest ,(intern (concatenate 'string
+ "DECLARATION-INFORMATION."
+ (symbol-name ',x)
+ suffix))
+ (locally (declare ,@(when declaration
+ (list declaration)))
+ (cadr (assoc ',',x (dinfo optimize))))
+ ,answer)))
+ (frob ".DEFAULT" 1)
+ (frob ".0" 0 (optimize (,x 0)))
+ (frob ".1" 1 (optimize (,x 1)))
+ (frob ".2" 2 (optimize (,x 2)))
+ (frob ".3" 3 (optimize (,x 3)))
+ (frob ".IMPLICIT" 3 (optimize ,x)))))