Parent Directory | Revision Log | Patch
revision 1.1 by pfdietz, Tue Oct 8 02:35:57 2002 UTC | revision 1.2 by pfdietz, Tue Oct 8 04:55:07 2002 UTC | |
---|---|---|
# | Line 235 | Line 235 |
235 | (values (setf (%m x) 2) | (values (setf (%m x) 2) |
236 | (1+ (car x))))) | (1+ (car x))))) |
237 | 2 3) | 2 3) |
238 | ||
239 | ;;; section 5.1.2.8 -- symbol macros | |
240 | (deftest setf-symbol-macro.1 | |
241 | (symbol-macrolet ((x y)) | |
242 | (let ((y nil)) | |
243 | (values (setf x 1) x y))) | |
244 | 1 1 1) | |
245 | ||
246 | ;;; Symbol macros in SETQs are treated as if the form were a SETF | |
247 | (deftest setf-symbol-macro.2 | |
248 | (symbol-macrolet ((x y)) | |
249 | (let ((y nil)) | |
250 | (values (setq x 1) x y))) | |
251 | 1 1 1) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |