Changeset 11134


Ignore:
Timestamp:
02/15/07 11:21:30 (14 years ago)
Author:
piso
Message:

DESTRUCTURING-BIND: :wrap-block nil (Eric Marsden)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/destructuring-bind.lisp

    r10789 r11134  
    22;;;
    33;;; Copyright (C) 2003-2005 Peter Graves
    4 ;;; $Id: destructuring-bind.lisp,v 1.22 2005-12-29 15:13:11 piso Exp $
     4;;; $Id: destructuring-bind.lisp,v 1.23 2007-02-15 11:21:30 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    348348    (multiple-value-bind (body local-decls)
    349349  (parse-defmacro lambda-list arg-list-name body nil 'destructuring-bind
    350       :anonymousp t :doc-string-allowed nil)
     350      :anonymousp t
     351                        :doc-string-allowed nil
     352                        :wrap-block nil)
    351353      `(let ((,arg-list-name ,arg-list))
    352354   ,@local-decls
Note: See TracChangeset for help on using the changeset viewer.