[Matlisp-commit] [matlisp-git]matlisp branch matlisp-cffi updated. 2012-02-23-88-gd4818f9

[Akshay S. <ak...@us...>]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "matlisp".

The branch, matlisp-cffi has been updated
       via  d4818f9fb12cb34d792c4bad8f0662f46f8ffcf0 (commit)
      from  98b4fe1837ebeeb904783d78a2c23f996ae83d18 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit d4818f9fb12cb34d792c4bad8f0662f46f8ffcf0
Author: Akshay Srinivasan <aks...@gm...>
Date:   Tue May 29 23:34:42 2012 +0530

    Fixed quirk with diag, made it setf-able

diff --git a/src/submat.lisp b/src/submat.lisp
index 078007b..4f1b00f 100644
--- a/src/submat.lisp
+++ b/src/submat.lisp
@@ -184,10 +184,13 @@ Cannot create a sub-matrix of size (~a ~a) starting at (~a ~a)" nr-s nc-s o-i o-
    (copy! value (DIAG~ matrix d))
 "))
 
-(defun diag (matrix &optional d)
+(defun (setf diag~) (value matrix &optional (d 0))
+  (copy! value (diag~ matrix d)))
+
+(defun diag (matrix &optional (d 0))
   (copy (diag~ matrix d)))
 
-(defun (setf diag~) (value matrix &optional (d 0))
+(defun (setf diag) (value matrix &optional (d 0))
   (copy! value (diag~ matrix d)))
 
 (defmethod diag~ ((matrix real-matrix) &optional (d 0))

-----------------------------------------------------------------------

Summary of changes:
 src/submat.lisp |    7 +++++--
 1 files changed, 5 insertions(+), 2 deletions(-)


hooks/post-receive
-- 
matlisp