Skip to content

Commit

Permalink
Set f2cl-lib:integer4 to appropriate setting for SBCL
Browse files Browse the repository at this point in the history
Remove gratutious sb-* module loads in clml.asd
  • Loading branch information
mmaul committed Jul 11, 2015
1 parent 12b4a5f commit cef7d10
Show file tree
Hide file tree
Showing 2 changed files with 2 additions and 10 deletions.
4 changes: 2 additions & 2 deletions blas/src/macro.lisp
Expand Up @@ -60,10 +60,10 @@ is not included")
;; If you change this, you may need to change some of the macros
;; below, such as INT and AINT!

#+(or cmu scl)
#+(or cmu scl sbcl)
(deftype integer4 (&optional (low #x-80000000) (high #x7fffffff))
`(integer ,low ,high))
#-(or cmu scl)
#-(or cmu scl sbcl)
(deftype integer4 (&rest p)
'fixnum)

Expand Down
8 changes: 0 additions & 8 deletions clml.asd
Expand Up @@ -8,14 +8,6 @@

#+sbcl (declaim (sb-ext:muffle-conditions sb-ext:compiler-note))
#+sbcl (declaim (sb-ext:muffle-conditions sb-kernel:character-decoding-error-in-comment))
#+sbcl (eval-when (:compile-toplevel :load-toplevel :execute)
(progn
;; Modules won't load if sb-fasl:*fasl-file-type* is not "fasl"
;; So load them first
(loop for module in '(:sb-posix :sb-aclrepl :sb-bsd-sockets :sb-cltl2 :sb-cover
:sb-introspect :sb-md5 :sb-rotate-byte :sb-sprof)
do (require module))))


#+ (and has-mkl (or mswindows linux))
(eval-when (:compile-toplevel :load-toplevel :execute)
Expand Down

0 comments on commit cef7d10

Please sign in to comment.