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)