mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 02:30:42 -08:00
Code Issues Projects Releases Wiki Activity

Added 'windows' feature to clog-connection to make it buildable on Windows using Clozure CL

Browse source
This commit is contained in:
em7 2024-03-07 10:20:48 +01:00
parent 9f360254a3
commit 03ca2a96fb
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
source/clog-connection.lisp
View file

@ -90,7 +90,7 @@ script."
(defvar *new-id* '(0) "Last issued connection or script IDs") (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* (defparameter *isaac-ctx*
(isaac:init-self-seed :count 5 (isaac:init-self-seed :count 5
:is64 #+:X86-64 t #-:X86-64 nil) :is64 #+:X86-64 t #-:X86-64 nil)
@ -133,10 +133,10 @@ script."
(defun random-hex-string () (defun random-hex-string ()
"Generate cryptographic grade random ids for use in connections." "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:byte-array-to-hex-string
(ironclad:random-data 16)) (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 (format nil "~(~32,'0x~)" (#+:X86-64 isaac:rand-bits-64
#-:X86-64 isaac:rand-bits #-:X86-64 isaac:rand-bits
*isaac-ctx* 128))) *isaac-ctx* 128)))