Permalink
Browse files

Removed whitespace.

  • Loading branch information...
1 parent 98a837f commit 7dfcf20d0f208d6ebe596ee526e6a1b7ce983b01 @tpapp committed Oct 2, 2012
Showing with 2 additions and 2 deletions.
  1. +2 −2 extensions.lisp
View
@@ -9,7 +9,7 @@ destructured and the destructing form, wrapping the original body."
(list arguments
`(let+ ,(mapcar #'list lambda-list arguments)
,@body))))
-
+
(define-let+-expansion (&flet+ (function-name lambda-list
&body function-body)
:uses-value? nil)
@@ -34,7 +34,7 @@ destructured and the destructing form, wrapping the original body."
"DEFUN that destructures its arguments using LET+."
`(defun ,name ,@(destructured-lambda-list-forms lambda-list body)))
-(defmacro define-structure-let+ ((name
+(defmacro define-structure-let+ ((name
&key (conc-name (symbolicate name #\-))
(r/w (symbolicate #\& name))
(r/o (symbolicate #\& name '#:-r/o)))

0 comments on commit 7dfcf20

Please sign in to comment.