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@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)