Parent Directory | Revision Log | Patch
revision 1.1 by camm, Tue Sep 23 20:30:25 2003 UTC | revision 1.2 by camm, Mon Nov 7 16:27:39 2005 UTC | |
---|---|---|
# | Line 402 | Line 402 |
402 | ||
403 | (defmacro destructuring-bind (lambda-list arg-list &rest body) | (defmacro destructuring-bind (lambda-list arg-list &rest body) |
404 | "Bind the variables in LAMBDA-LIST to the contents of ARG-LIST." | "Bind the variables in LAMBDA-LIST to the contents of ARG-LIST." |
405 | (declare (optimize (safety 1))) | |
406 | (let* ((arg-list-name (gensym "ARG-LIST-"))) | (let* ((arg-list-name (gensym "ARG-LIST-"))) |
407 | (multiple-value-bind | (multiple-value-bind |
408 | (body local-decls) | (body local-decls) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |