From rtoy at common-lisp.net  Tue Jun 15 17:38:21 2010
From: rtoy at common-lisp.net (rtoy)
Date: Tue, 15 Jun 2010 13:38:21 -0400
Subject: [oct-cvs] Oct commit: oct oct.asd
Message-ID: <E1OOa5d-0007zi-KL@common-lisp.net>

Update of /project/oct/cvsroot/oct
In directory cl-net:/tmp/cvs-serv30729

Modified Files:
	oct.asd 
Log Message:
o Use arrays if we're not running with cmucl.


--- /project/oct/cvsroot/oct/oct.asd	2008/07/17 17:26:21	1.3
+++ /project/oct/cvsroot/oct/oct.asd	2010/06/15 17:38:21	1.4
@@ -47,6 +47,15 @@
 (eval-when (:load-toplevel :compile-toplevel :execute)
   (setf ext:*inline-expansion-limit* 1600))
 
+;;
+;; For all Lisps other than CMUCL, oct uses arrays to store the
+;; quad-double values.  This is denoted by the feature :oct-array.
+;; For CMUCL, quad-doubles can be stored in a (complex
+;; double-double-float) object, which is an extension in CMUCL.
+;; If you want CMUCL to use an array too, add :oct-array to *features*.
+#-cmu
+(pushnew :oct-array *features*)
+
 (defpackage #:oct-system
   (:use #:cl))
 




From rtoy at common-lisp.net  Tue Jun 15 18:26:39 2010
From: rtoy at common-lisp.net (rtoy)
Date: Tue, 15 Jun 2010 14:26:39 -0400
Subject: [oct-cvs] Oct commit: oct oct.system
Message-ID: <E1OOaqN-0002rc-3G@common-lisp.net>

Update of /project/oct/cvsroot/oct
In directory cl-net:/tmp/cvs-serv11007

Modified Files:
	oct.system 
Log Message:
Add in-package.


--- /project/oct/cvsroot/oct/oct.system	2007/11/28 21:41:27	1.24
+++ /project/oct/cvsroot/oct/oct.system	2010/06/15 18:26:39	1.25
@@ -1,4 +1,4 @@
-;;;; -*- Mode: lisp -*-
+;;;; -*- Mode: lisp; Package: CL-USER -*-
 ;;;;
 ;;;; Copyright (c) 2007 Raymond Toy
 ;;;;
@@ -23,6 +23,7 @@
 ;;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
 ;;;; OTHER DEALINGS IN THE SOFTWARE.
 
+(in-package #:cl-user)
 ;; If you want all core functions to be inline (like the C++ code
 ;; does), add :qd-inline to *features* by enabling the following line.
 ;; This makes compilation much, much slower, but the resulting code




From rtoy at common-lisp.net  Tue Jun 15 18:27:37 2010
From: rtoy at common-lisp.net (rtoy)
Date: Tue, 15 Jun 2010 14:27:37 -0400
Subject: [oct-cvs] Oct commit: oct .cvsignore
Message-ID: <E1OOarJ-0002tB-EN@common-lisp.net>

Update of /project/oct/cvsroot/oct
In directory cl-net:/tmp/cvs-serv11104

Modified Files:
	.cvsignore 
Log Message:
Ignore more fasls.


--- /project/oct/cvsroot/oct/.cvsignore	2007/10/10 15:25:41	1.4
+++ /project/oct/cvsroot/oct/.cvsignore	2010/06/15 18:27:37	1.5
@@ -1,7 +1,9 @@
-*.ppcf
-*.sparcf
-*.x86f
 *.err
+*.fas
 *.fasl
 *.lib
-*.fas
+*.ppcf
+*.sparcf
+*.x86f
+*.sse2f
+*.dx32fsl