From 03ca2a96fb5986a1081c92f039052de8dc12a8bc Mon Sep 17 00:00:00 2001 From: em7 Date: Thu, 7 Mar 2024 10:20:48 +0100 Subject: [PATCH] Added 'windows' feature to clog-connection to make it buildable on Windows using Clozure CL --- source/clog-connection.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/source/clog-connection.lisp b/source/clog-connection.lisp index 1b710a1..d2ff62d 100644 --- a/source/clog-connection.lisp +++ b/source/clog-connection.lisp @@ -90,7 +90,7 @@ script." (defvar *new-id* '(0) "Last issued connection or script IDs") -#-(or mswindows win32 cormanlisp) ; isaac hasn't supported these platforms +#-(or mswindows windows win32 cormanlisp) ; isaac hasn't supported these platforms (defparameter *isaac-ctx* (isaac:init-self-seed :count 5 :is64 #+:X86-64 t #-:X86-64 nil) @@ -133,10 +133,10 @@ script." (defun random-hex-string () "Generate cryptographic grade random ids for use in connections." - #+(or mswindows win32 cormanlisp) ; isaac hasn't supported these platforms. Use ironclad instead. + #+(or mswindows windows win32 cormanlisp) ; isaac hasn't supported these platforms. Use ironclad instead. (ironclad:byte-array-to-hex-string (ironclad:random-data 16)) - #-(or mswindows win32 cormanlisp) ; isaac hasn't supported these platforms + #-(or mswindows windows win32 cormanlisp) ; isaac hasn't supported these platforms (format nil "~(~32,'0x~)" (#+:X86-64 isaac:rand-bits-64 #-:X86-64 isaac:rand-bits *isaac-ctx* 128)))