Commit 892049dc authored by Dave Cooper's avatar Dave Cooper

changed to force ipv4 in client-check, add px to width, height for x3dom, add...

changed to force ipv4 in client-check, add px to width, height for x3dom, add wx fasls to .gitignore.
parent 2be0562c
...@@ -4,6 +4,7 @@ ...@@ -4,6 +4,7 @@
*.fas *.fas
*.xfasl *.xfasl
*.dx64fsl *.dx64fsl
*.wx64fsl
*.64xfasl *.64xfasl
*.lib *.lib
bin bin
......
...@@ -402,8 +402,8 @@ to call the :write-embedded-x3d-world function.")) ...@@ -402,8 +402,8 @@ to call the :write-embedded-x3d-world function."))
:swfpath "/static/3rdpty/x3dom/x3dom.swf" :swfpath "/static/3rdpty/x3dom/x3dom.swf"
;;:width "100%" ;;:width "100%"
;;:height "100%" ;;:height "100%"
:width (the view-object page-width) :width (format nil "~apx" (the view-object page-width))
:height (the view-object page-length) :height (format nil "~apx" (the view-object page-length))
) )
(:|Scene| (:|Scene|
(with-format (x3d *stream*) (with-format (x3d *stream*)
......
...@@ -103,7 +103,7 @@ Perhaps a zombie process is holding port ~a?~%" port port)) ...@@ -103,7 +103,7 @@ Perhaps a zombie process is holding port ~a?~%" port port))
#+ccl #+ccl
(let* ((result (let* ((result
(handler-case (handler-case
(let ((sock (usocket:socket-listen "localhost" port))) (let ((sock (usocket:socket-listen "127.0.0.1" port)))
(usocket:socket-close sock)) (usocket:socket-close sock))
(usocket:address-in-use-error (e) (declare (ignore e)) :in-use) (usocket:address-in-use-error (e) (declare (ignore e)) :in-use)
(t (e) (declare (ignore e)) :unknown)))) (t (e) (declare (ignore e)) :unknown))))
......
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