0.8.6.8:

[sbcl.git] / tests / setf.impure.lisp

diff --git a/tests/setf.impure.lisp b/tests/setf.impure.lisp
new file mode 100644 (file)
index 0000000..77c4ac5
--- /dev/null
+++ b/tests/setf.impure.lisp
@@ -0,0 +1,27 @@
+;;;; tests related to setf
+
+;;;; This file is impure because we want to be able to use DEFUN.
+
+;;;; This software is part of the SBCL system. See the README file for
+;;;; more information.
+;;;;
+;;;; While most of SBCL is derived from the CMU CL system, the test
+;;;; files (like this one) were written from scratch after the fork
+;;;; from CMU CL.
+;;;;
+;;;; This software is in the public domain and is provided with
+;;;; absolutely no warranty. See the COPYING and CREDITS files for
+;;;; more information.
+
+(in-package :cl-user)
+
+(defvar *foo* nil)
+(defun (setf foo) (bar)
+    (setf *foo* bar))
+
+;;; Regression test for get-setf-expansion without explicit
+;;; environment object.
+(assert (multiple-value-list (get-setf-expansion '(foo))))
+
+;;; success
+(quit :unix-status 104)
\ No newline at end of file