Parent Directory | Revision Log | Patch
revision 1.5 by pfdietz, Fri Oct 11 00:59:20 2002 UTC | revision 1.6 by pfdietz, Sun Oct 13 16:44:49 2002 UTC | |
---|---|---|
# | Line 105 | Line 105 |
105 | ;;; Definition of a (setf ...) function | ;;; Definition of a (setf ...) function |
106 | ||
107 | (deftest flet.17 | (deftest flet.17 |
108 | (flet (((setf %f) (x y) (setf (car x) y))) | (flet (((setf %f) (x y) (setf (car y) x))) |
109 | (let ((z (list 1 2))) | (let ((z (list 1 2))) |
110 | (setf (%f z) 'a) | (setf (%f z) 'a) |
111 | z)) | z)) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |