/[gcl]/gcl/mod/gcl_destructuring_bind.lsp
ViewVC logotype

Diff of /gcl/mod/gcl_destructuring_bind.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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)

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26