local
global))
-(aver (eq :local (macrolet ((defsetf-env-trick ()))
- (setf (test-defsetf-env-1) 13))))
+(assert (eq :local (macrolet ((defsetf-env-trick ()))
+ (setf (test-defsetf-env-1) 13))))
-(aver (eq :global (setf (test-defsetf-env-1) 13)))
+(assert (eq :global (setf (test-defsetf-env-1) 13)))
-(aver (eq :local (macrolet ((defsetf-env-trick ()))
- (setf (test-defsetf-env-2 :local :oops) 13))))
+(assert (eq :local (macrolet ((defsetf-env-trick ()))
+ (setf (test-defsetf-env-2 :local :oops) 13))))
-(aver (eq :global (setf (test-defsetf-env-2 :oops :global) 13)))
+(assert (eq :global (setf (test-defsetf-env-2 :oops :global) 13)))
-(aver (eq :error
- (handler-case
- (eval '(defsetf test-defsetf-aux (&aux aux) (new) nil))
- (error ()
- :error))))
+(assert (eq :error
+ (handler-case
+ (eval '(defsetf test-defsetf-aux (&aux aux) (new) nil))
+ (error ()
+ :error))))
;;; success