behemoth$ /usr/local/ecl/bin/ecl
;;; Loading #P"/usr/local/ecl/lib/ecl-10.7.1/asdf.fas"
;;; Loading #P"/usr/local/ecl/lib/ecl-10.7.1/cmp.fas"
ECL (Embeddable Common-Lisp) 10.7.1
Copyright (C) 1984 Taiichi Yuasa and Masami Hagiya
Copyright (C) 1993 Giuseppe Attardi
Copyright (C) 2000 Juan J. Garcia-Ripoll
ECL is free software, and you are welcome to redistribute it
under certain conditions; see file 'Copyright' for details.
Type :h for Help.  
Top level in: #<process SI:TOP-LEVEL 0810afc0>.
> (load "/tmp/setf-test.lisp")

;;; Loading "/tmp/setf-test.lisp"
#P"/tmp/setf-test.lisp"
> (test)

The function (SETF FOO-VAL) is undefined.

Available restarts:

1. (RESTART-TOPLEVEL) Go back to Top-Level REPL.

Broken at TEST. In: #<process SI:TOP-LEVEL 0810afc0>.
 File: #P"/tmp/setf-test.lisp" (Position #NIL)
>> :q

Top level in: #<process SI:TOP-LEVEL 0810afc0>.
> *foo*

(0)
> (foo-val *foo*)

0
> (setf (foo-val *foo*) 1)

The function (SETF FOO-VAL) is undefined.

Available restarts:

1. (RESTART-TOPLEVEL) Go back to Top-Level REPL.

Broken at SI:BYTECODES. [Evaluation of: (SETF (FOO-VAL *FOO*) 1)] In: #<process SI:TOP-LEVEL 0810afc0>.
>> ^D