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
|
