Conditional for sbcl stuff
| author |
Steve Losh <steve@stevelosh.com> |
| date |
Fri, 12 Aug 2016 02:57:54 +0000 |
| parents |
0c5970729c2f
|
| children |
6c6fa332df6f
|
| branches/tags |
done |
| files |
silt.asd silt.lisp |
Changes
--- a/silt.asd Wed Aug 10 15:53:53 2016 +0000
+++ b/silt.asd Fri Aug 12 02:57:54 2016 +0000
@@ -10,7 +10,7 @@
:depends-on (#:iterate
#:cl-charms
#:cl-arrows
- #:sb-sprof
+ #+sbcl #:sb-sprof
#:losh
#:beast)
--- a/silt.lisp Wed Aug 10 15:53:53 2016 +0000
+++ b/silt.lisp Fri Aug 12 02:57:54 2016 +0000
@@ -1,5 +1,5 @@
(in-package #:silt)
-(require :sb-sprof)
+#+sbcl (require :sb-sprof)
; (declaim (optimize (speed 3) (debug 0) (safety 0)))
; (declaim (optimize (speed 3) (debug 0) (safety 1)))
@@ -946,6 +946,7 @@
;;;; Profiling ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+#+sbcl
(defun dump-profile ()
(with-open-file (*standard-output* "silt.prof"
:direction :output
@@ -956,6 +957,7 @@
(sb-sprof:report :type :flat
:min-percent 0.5)))
+#+sbcl
(defun start-profiling ()
(sb-sprof::reset)
(sb-sprof::profile-call-counts "SILT")
@@ -965,6 +967,7 @@
:sample-interval 0.01
:threads :all))
+#+sbcl
(defun stop-profiling ()
(sb-sprof::stop-profiling)
(dump-profile))