tests/setf.impure.lisp

   1 ;;;; tests related to setf
   2
   3 ;;;; This file is impure because we want to be able to use DEFUN.
   4
   5 ;;;; This software is part of the SBCL system. See the README file for
   6 ;;;; more information.
   7 ;;;;
   8 ;;;; While most of SBCL is derived from the CMU CL system, the test
   9 ;;;; files (like this one) were written from scratch after the fork
  10 ;;;; from CMU CL.
  11 ;;;;
  12 ;;;; This software is in the public domain and is provided with
  13 ;;;; absolutely no warranty. See the COPYING and CREDITS files for
  14 ;;;; more information.
  15
  16 (in-package :cl-user)
  17
  18 (defvar *foo* nil)
  19 (defun (setf foo) (bar)
  20     (setf *foo* bar))
  21
  22 ;;; Regression test for get-setf-expansion without explicit
  23 ;;; environment object.
  24 (assert (multiple-value-list (get-setf-expansion '(foo))))
  25
  26 ;;; success
  27 (quit :unix-status 104)