Commit ef9abf38 authored by Dave Cooper's avatar Dave Cooper
Browse files

fixed typo in ccl hack in gwl/zzinit/source/initialize.lisp

parent 9ed963b5
...@@ -223,7 +223,7 @@ Perhaps a zombie process is holding port ~a?~%" port port)) ...@@ -223,7 +223,7 @@ Perhaps a zombie process is holding port ~a?~%" port port))
(in-package :ccl) (in-package :ccl)
#-(and ccl windows-target)
(eval-when (:compile-toplevel :load-toplevel :execute) (eval-when (:compile-toplevel :load-toplevel :execute)
(defparameter *set-_?* nil) (defparameter *set-_?* nil)
(defparameter *set-$?* nil) (defparameter *set-$?* nil)
...@@ -250,6 +250,7 @@ Perhaps a zombie process is holding port ~a?~%" port port)) ...@@ -250,6 +250,7 @@ Perhaps a zombie process is holding port ~a?~%" port port))
((or (<= millis 0) ((or (<= millis 0)
(not (eql (#_SleepEx millis #$true) #$WAIT_IO_COMPLETION))))))) (not (eql (#_SleepEx millis #$true) #$WAIT_IO_COMPLETION)))))))
#-(and ccl windows-target)
(eval-when (:compile-toplevel :load-toplevel :execute) (eval-when (:compile-toplevel :load-toplevel :execute)
(when *set-_?* (set-dispatch-macro-character #\# #\_ nil)) (when *set-_?* (set-dispatch-macro-character #\# #\_ nil))
(when *set-$?* (set-dispatch-macro-character #\# #\$ nil))) (when *set-$?* (set-dispatch-macro-character #\# #\$ nil)))
......
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