Merge pull request #6 from ober/add-lw-allegro-support

Add allegro and Lispworks support
deadtrickster · Oct 6, 2019 · a41bae9 · a41bae9
2 parents 884d151 + f139d3a
commit a41bae9
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/prometheus/metrics/histogram.lisp b/src/prometheus/metrics/histogram.lisp
@@ -31,7 +31,7 @@
   (unless (equalp (sort (copy-seq buckets) #'<) buckets)
     (error 'invalid-buckets-error :value buckets :reason "bounds not sorted"))
 
-  (let ((with+inf (make-array (1+ (length buckets)) :element-type 'number :initial-element #+sbcl sb-ext:double-float-positive-infinity #+(and ecl ieee-floating-point) EXT:DOUBLE-FLOAT-POSITIVE-INFINITY)))
+  (let ((with+inf (make-array (1+ (length buckets)) :element-type 'number :initial-element #+allegro excl::*infinity-double* #+lispworks #.(read-from-string "10E999") #+sbcl sb-ext:double-float-positive-infinity #+(and ecl ieee-floating-point) EXT:DOUBLE-FLOAT-POSITIVE-INFINITY)))
     (replace with+inf buckets)
     with+inf))