Commit ef9abf38 by Dave Cooper

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