Browse Source

hmm, that didn't do it

master
eta 2 weeks ago
parent
commit
6add2c7c82
  1. 2
      deploy-web.sh
  2. 2
      deploy.sh
  3. 2
      trackernet.lisp

2
deploy-web.sh

@ -1,2 +1,2 @@ @@ -1,2 +1,2 @@
#!/bin/sh
sbcl --noinform --disable-debugger --load deploy-web.txt
sbcl --noinform --load deploy-web.txt

2
deploy.sh

@ -1,2 +1,2 @@ @@ -1,2 +1,2 @@
#!/bin/sh
sbcl --noinform --disable-debugger --load deploy.txt
sbcl --noinform --load deploy.txt

2
trackernet.lisp

@ -1716,6 +1716,7 @@ @@ -1716,6 +1716,7 @@
(sb-ext:exit :abort t))
(defun main ()
(setf *debugger-hook* #'debugger-hook)
(let ((*package* (find-package 'trackernet)))
(format t "~&*** Starting scraping in 3 seconds unless interrupted ***~%")
(redis:connect)
@ -1725,7 +1726,6 @@ @@ -1725,7 +1726,6 @@
(unwind-protect
(sb-impl::toplevel-repl nil)
(format t "~&*** REPL closed, continuing anyway ***~%")
(setf *debugger-hook* #'debugger-hook)
(loop (sleep 1)))))
(defun line-track-descriptions (line-code)

Loading…
Cancel
Save