Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
oct
oct
Commits
e3b5afcc
Commit
e3b5afcc
authored
Feb 09, 2011
by
Raymond Toy
Browse files
Move the configuration stuff out of the system definition files and
place them in qd-package.lisp.
parent
7ee07be6
Changes
3
Hide whitespace changes
Inline
Side-by-side
oct.asd
View file @
e3b5afcc
;;;; -*- Mode: lisp -*-
;;;;
;;;; Copyright (c) 2007 Raymond Toy
;;;; Copyright (c) 2007
, 2011
Raymond Toy
;;;;
;;;; Permission is hereby granted, free of charge, to any person
;;;; obtaining a copy of this software and associated documentation
...
...
@@ -26,36 +26,6 @@
;;; This is the asdf definition for oct. I don't normally use this,
;;; so it might be out of date. Use at your own risk.
;; 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
;; conses much less and is significantly faster.
#+
(
not
(
and
cmu
x86
))
(
eval-when
(
:load-toplevel
:compile-toplevel
:execute
)
(
pushnew
:qd-inline
*features*
))
;; To be able to inline all the functions, we need to make
;; *inline-expansion-limit* much larger.
;;
;; Not sure we really want to inline everything, but the QD C++ code
;; inlines all of the functions so we do the same. This makes CMUCL
;; take a very long time to compile the code, and the resulting
;; functions are huge. (I think div-qd is 8 KB, and sqrt-qd is a
;; whopping 30 KB!)
;;
#+
(
and
cmu
qd-inline
)
(
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
))
...
...
@@ -66,7 +36,7 @@
:author
"Raymond Toy"
:maintainer
"See <http://www.common-lisp.net/project/oct>"
:licence
"MIT"
:version
"
0.0"
; No real version yet
:version
"
2011-02-09"
; Just use the date
:components
((
:file
"qd-package"
)
(
:file
"qd-rep"
:depends-on
(
"qd-package"
))
...
...
oct.system
View file @
e3b5afcc
...
...
@@ -24,37 +24,6 @@
;;;; 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
;; conses much less and is significantly faster.
#+
(
not
(
and
cmu
x86
))
(
eval-when
(
:load-toplevel
:compile-toplevel
:execute
)
(
pushnew
:qd-inline
*features*
))
;; To be able to inline all the functions, we need to make
;; *inline-expansion-limit* much larger.
;;
;; Not sure we really want to inline everything, but the QD C++ code
;; inlines all of the functions so we do the same. This makes CMUCL
;; take a very long time to compile the code, and the resulting
;; functions are huge. (I think div-qd is 8 KB, and sqrt-qd is a
;; whopping 30 KB!)
;;
#+
(
and
cmu
qd-inline
)
(
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*
)
(
mk:defsystem
oct
:source-pathname
(
make-pathname
:directory
(
pathname-directory
*load-pathname*
))
:components
...
...
qd-package.lisp
View file @
e3b5afcc
;;;; -*- Mode: lisp -*-
;;;;
;;;; Copyright (c) 2007 Raymond Toy
;;;; Copyright (c) 2007
, 2011
Raymond Toy
;;;;
;;;; Permission is hereby granted, free of charge, to any person
;;;; obtaining a copy of this software and associated documentation
...
...
@@ -23,6 +23,36 @@
;;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
;;;; OTHER DEALINGS IN THE SOFTWARE.
;; 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
;; conses much less and is significantly faster.
#+
(
not
(
and
cmu
x86
))
(
eval-when
(
:load-toplevel
:compile-toplevel
:execute
)
(
pushnew
:qd-inline
*features*
))
;; To be able to inline all the functions, we need to make
;; *inline-expansion-limit* much larger.
;;
;; Not sure we really want to inline everything, but the QD C++ code
;; inlines all of the functions so we do the same. This makes CMUCL
;; take a very long time to compile the code, and the resulting
;; functions are huge. (I think div-qd is 8 KB, and sqrt-qd is a
;; whopping 30 KB!)
;;
#+
(
and
cmu
qd-inline
)
(
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-internal
(
:use
#:cl
)
(
:nicknames
#:octi
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment