Commit 756d6d31 authored by Dave Cooper's avatar Dave Cooper
Browse files

removed debug creation of temp x3d file

parent f5732764
......@@ -94,11 +94,6 @@
(with-http-body (req ent)
(let ((reply-stream (request-reply-stream req))
(*req* req) (*ent* ent))
(when *debug?*
(let ((*onclick-function* (the onclick-function)
))
(with-format (x3d "/tmp/try.x3d")
(write-the view-object cad-output))))
(let ((*onclick-function* (the onclick-function)))
(let ((*stream* reply-stream))
(with-cl-who ()
......
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