Permalink
Browse files

dsb, mvb

  • Loading branch information...
1 parent 6df1d7a commit 1224cd19a96841a8846cedc81fb298c5a4abef8a @kennytilton committed Jun 13, 2010
Showing with 10 additions and 1 deletion.
  1. +10 −1 flow-control.lisp
View
@@ -135,11 +135,20 @@ See the Lisp Lesser GNU Public License for more details.
`(let ((,bindvar ,boundform))
,@body))
+(defmacro dsb (b f &body bod)
+ `(destructuring-bind ,b ,f
+ ,@bod))
+
+(defmacro mvb (b f &body bod)
+ `(multiple-value-bind ,b ,f
+ ,@bod))
+
+
(defmacro maptimes ((nvar count) &body body)
`(loop for ,nvar below ,count
collecting (progn ,@body)))
-(export! b1 maphash* hashtable-assoc -1?1 -1?1 prime? b-if b-when)
+(export! b1 maphash* hashtable-assoc -1?1 -1?1 prime? b-if b-when dsb mvb)
(defun maphash* (f h)
(loop for k being the hash-keys of h

0 comments on commit 1224cd1

Please sign in to comment.