[oct-scm] [oct-git]OCT: A portable Lisp implementation for quad-double precision floats branch master updated. 7310f8e9c4f8d905d60121a1bc89665b9f620689

[Raymond Toy]

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 "OCT:  A portable Lisp implementation for quad-double precision floats".

The branch, master has been updated
       via  7310f8e9c4f8d905d60121a1bc89665b9f620689 (commit)
       via  cc9eb34a6fa1e8971a09dddc91e93848ba360dbf (commit)
      from  6ab0812b935e4fa1c63ba9f5d58f7e66eb6f375b (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 7310f8e9c4f8d905d60121a1bc89665b9f620689
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Fri Mar 4 16:03:17 2011 -0500

    Add newline to end of file.  Fix #1.

diff --git a/oct.asd b/oct.asd
index 3cef6d7..947b047 100644
--- a/oct.asd
+++ b/oct.asd
@@ -75,4 +75,4 @@
 
 (defmethod perform ((op test-op) (c (eql (find-system :oct-tests))))
   (or (funcall (intern "DO-TESTS" (find-package "RT")))
-      (error "TEST-OP failed for OCT-TESTS")))
\ No newline at end of file
+      (error "TEST-OP failed for OCT-TESTS")))

commit cc9eb34a6fa1e8971a09dddc91e93848ba360dbf
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Sun Feb 13 18:41:29 2011 -0500

    Add test-op for oct to run the tests.

diff --git a/oct.asd b/oct.asd
index ba4d6b6..3cef6d7 100644
--- a/oct.asd
+++ b/oct.asd
@@ -27,7 +27,7 @@
 ;;; so it might be out of date.  Use at your own risk.
 
 (defpackage #:oct-system
-  (:use #:cl))
+  (:use #:cl #:asdf))
 
 (in-package #:oct-system)
 
@@ -59,3 +59,20 @@
    (:file "qd-complex"
 	  :depends-on ("qd-methods"))
    ))
+
+(defmethod perform ((op test-op) (c (eql (find-system :oct))))
+  (oos 'test-op 'oct-tests))
+
+(asdf:defsystem oct-tests
+  :depends-on (oct)
+  :version "2011-02-09"			; Just use the date
+  :in-order-to ((compile-op (load-op :rt))
+		(test-op (load-op :rt :oct)))
+  :components
+  ((:file "qd-extra")
+   (:file "qd-test")
+   (:file "rt-tests")))
+
+(defmethod perform ((op test-op) (c (eql (find-system :oct-tests))))
+  (or (funcall (intern "DO-TESTS" (find-package "RT")))
+      (error "TEST-OP failed for OCT-TESTS")))
\ No newline at end of file

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

Summary of changes:
 oct.asd |   19 ++++++++++++++++++-
 1 files changed, 18 insertions(+), 1 deletions(-)


hooks/post-receive
-- 
OCT:  A portable Lisp implementation for quad-double precision floats