[movitz-cvs] CVS movitz/losp

[ffjeld]

Update of /project/movitz/cvsroot/movitz/losp
In directory clnet:/tmp/cvs-serv13632

Modified Files:
	scratch.lisp 
Log Message:
Implement macro destructuring-bind.


--- /project/movitz/cvsroot/movitz/losp/scratch.lisp	2008/02/23 22:28:55	1.3
+++ /project/movitz/cvsroot/movitz/losp/scratch.lisp	2008/03/07 23:38:16	1.4
@@ -7,7 +7,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: scratch.lisp,v 1.3 2008/02/23 22:28:55 ffjeld Exp $
+;;;; $Id: scratch.lisp,v 1.4 2008/03/07 23:38:16 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -15,6 +15,16 @@
 
 (in-package los0)
 
+(defun test-bq (x y)
+  `(+ ,x ,y))
+
+
+#+ignore
+(defun d-bind (x)
+  (destructuring-bind (a (b &optional c) d &rest e &key f)
+      x
+    (values a b c d e f)))
+
 #+ignore
 (defun set.2 ()
   (let ((*var-used-in-set-tests* 'a)