MPCompat/mp-compat-lw.lisp at master · dbmcclain/MPCompat · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
;; mp-compat-lw.lisp
;; --------------------------------------------------------------------------------------
;; Compatibility layer for Lispworks, Allegro, OS X, and Win32, Mulit-Processing Primitives
;;
;; Copyright (C) 2008 by SpectroDynamics, LLC. All rights reserved.
;;
;; DM/SD  08/08
;; --------------------------------------------------------------------------------------

;; --------------------------------------------------
(in-package #:mp-compatibility)
;; --------------------------------------------------
;; Compatibility Layer

#|
(defun current-process ()
  "Get the current Lisp process."
  (mp:get-current-process))
|#

(defun current-process ()
  "Get the current Lisp process."
  mp:*current-process*)

;; --------------------------------------------------------------------------

;; --------------------------------------------------------------------------

(defun generate-uuid ()
  #+:MACOSX  (uuid:byte-array-to-uuid (uuidgen:generate))
  #+:WIN32   (uuid:make-v1-uuid))

;; --------------------------------------------------------------------------