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, tensor has been updated
via 4c6e88337126ac9344c8735b98f54aaa69daa99e (commit)
from 375d3a119c4645b92fcc78767c0dba0a97c7450b (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 4c6e88337126ac9344c8735b98f54aaa69daa99e
Author: Akshay Srinivasan <aks...@gm...>
Date: Mon Aug 13 09:53:01 2012 +0530
Inserted copyright herald in infix.lisp. Added mtimesdivide.lisp to the repository.
diff --git a/src/reader/infix.lisp b/src/reader/infix.lisp
index 841b1ce..adaeabb 100644
--- a/src/reader/infix.lisp
+++ b/src/reader/infix.lisp
@@ -253,6 +253,33 @@
(in-package #:matlisp-infix)
(pushnew :matlisp-infix *features*)
+(eval-when (:compile-toplevel :load-toplevel :execute)
+ (defparameter *version* "1.3 28-JUN-96")
+ (defparameter *print-infix-copyright* nil
+ "If non-NIL, prints a copyright notice upon loading this file.")
+
+ (defun infix-copyright (&optional (stream *standard-output*))
+ "Prints an INFIX copyright notice and header upon startup."
+ (format stream "~%;;; ~V,,,'*A" 73 "*")
+ (format stream "~%;;; Infix notation for Common Lisp.")
+ (format stream "~%;;; Version ~A." *version*)
+ (format stream "~%;;; Written by Mark Kantrowitz, ~
+ CMU School of Computer Science.")
+ (format stream "~%;;; Copyright (c) 1993-95. All rights reserved.")
+ (format stream "~%;;; May be freely redistributed, provided this ~
+ notice is left intact.")
+ (format stream "~%;;; This software is made available AS IS, without ~
+ any warranty.")
+ (format stream "~%;;; ~V,,,'*A~%" 73 "*")
+ (force-output stream))
+
+ ;; What this means is you can either turn off the copyright notice
+ ;; by setting the parameter, or you can turn it off by including
+ ;; (setf (get :infix :dont-print-copyright) t) in your lisp init file.
+ (when (and *print-infix-copyright*
+ (not (get :infix :dont-print-copyright)))
+ (infix-copyright)))
+
;;; ********************************
;;; Readtable **********************
;;; ********************************
@@ -714,7 +741,7 @@
'newline))
(define-token-operator newline
- :infix (let* ((ign (ignore-characters +parser-ignored-characters+ stream))
+ :infix (let* ((ign (ignore-characters +blank-characters+ stream))
(pchar (peek-char nil stream t nil t)))
(case pchar
(#\)
diff --git a/src/sugar/mtimesdivide.lisp b/src/sugar/mtimesdivide.lisp
new file mode 100644
index 0000000..de87e4e
--- /dev/null
+++ b/src/sugar/mtimesdivide.lisp
@@ -0,0 +1,7 @@
+(in-package #:matlisp)
+
+(definline m./! (a b)
+ (div! a b))
+
+(definline m./ (a b)
+ (div a b))
-----------------------------------------------------------------------
Summary of changes:
src/reader/infix.lisp | 29 ++++++++++++++++++++++++++++-
src/sugar/mtimesdivide.lisp | 7 +++++++
2 files changed, 35 insertions(+), 1 deletions(-)
create mode 100644 src/sugar/mtimesdivide.lisp
hooks/post-receive
--
matlisp
|
