Parent Directory | Revision Log | Patch
revision 1.1 by pfdietz, Thu Oct 10 02:07:29 2002 UTC | revision 1.2 by pfdietz, Sun Oct 13 16:44:49 2002 UTC | |
---|---|---|
# | Line 104 | Line 104 |
104 | ;;; Definition of a (setf ...) function | ;;; Definition of a (setf ...) function |
105 | ||
106 | (deftest labels.17 | (deftest labels.17 |
107 | (labels (((setf %f) (x y) (setf (car x) y))) | (labels (((setf %f) (x y) (setf (car y) x))) |
108 | (let ((z (list 1 2))) | (let ((z (list 1 2))) |
109 | (setf (%f z) 'a) | (setf (%f z) 'a) |
110 | z)) | z)) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |