Commit 2d39d290 authored by Dave Cooper's avatar Dave Cooper

fixed some typos

parent 2f43f12b
......@@ -23,7 +23,7 @@
(defparameter *gendl-version* "1591")
(defparameter *gendl-version* "1592")
(defparameter *gendl-patch-level* nil)
......
......@@ -94,14 +94,14 @@ respective authors:
Gendl® Free Edition, version ~a
Within ~a ~a
Copyright© 2016, Genworks International, Birmingham MI, USA.
Copyright© 2017, Genworks International, Birmingham MI, USA.
All Rights Reserved.
~a
Welcome to Gendl®
Copyright© 2016, Genworks® International, Birmingham MI, USA.
Copyright© 2017, Genworks® International, Birmingham MI, USA.
All Rights Reserved.
This program contains free software: you can redistribute it and/or
......
......@@ -210,7 +210,8 @@ Perhaps a zombie process is holding port ~a?~%" port port))
#+ccl
(in-package :ccl)
#+ccl
#+(and ccl mswindows)
(let (*warn-if-redefine-kernel*)
(defun %windows-sleep (millis)
......@@ -225,4 +226,5 @@ Perhaps a zombie process is holding port ~a?~%" port port))
(millis millis (- stop start))
(stop (+ start millis)))
((or (<= millis 0)
(not (eql (#_SleepEx millis #$true) #$WAIT_IO_COMPLETION)))))))
(not (eql (funcall (read-from-string "#_SleepEx millis") (read-from-string "#$true"))
(read-from-string "#$WAIT_IO_COMPLETION"))))))))
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment