adaptation.lisp

(in-package #:harlie)

#+sbcl
(defun make-synchronized-hash-table (&key
				       (test 'eql)
				       (size 40)
				       (rehash-size 1.5)
				       (rehash-threshold 1))
  (make-hash-table :test test
		   :size size
		   :rehash-size
		   rehash-size
		   :rehash-threshold rehash-threshold
		   :synchronized t))

#+ccl
(defun make-synchronized-hash-table (&key
				       (test 'eql)
				       (size 40)
				       (rehash-size 1.5)
				       (rehash-threshold 1))
  (make-hash-table :test test
		   :size size
		   :rehash-size
		   rehash-size
		   :rehash-threshold rehash-threshold))

#+ecl
(defun make-synchronized-hash-table (&key
				       (test 'eql)
				       (size 40)
				       (rehash-size 1.5)
				       (rehash-threshold 1))
  (make-hash-table :test test
		   :size size
		   :rehash-size
		   rehash-size
		   :rehash-threshold rehash-threshold
                   :synchronized t))

;; On SBCL, input must be NIL or it errors out.
;; On CCL, input must be a string or it errors out.

#+sbcl
(defun shell-out (pathname)
  (trivial-shell:shell-command pathname))

#+ccl
(defun shell-out (pathname)
  (trivial-shell:shell-command pathname :input ""))