Commit f44f004c authored by Dave Cooper's avatar Dave Cooper

updated crawler, simplified gendl-asdf system.

parent 1d18bbad
......@@ -4,5 +4,5 @@
:description "asdf gendl artifacts loading"
:serial t
:version "20161111"
:depends-on (#:gwl) ;; TODO reduce this one to a minimal dependency
:depends-on ()
:components ((:file "gendl-asdf")))
;;;; -*- coding: utf-8 -*-
(in-package :gdl-user)
(in-package :cl-user)
(defclass asdf::gdl (asdf::cl-source-file) ((type :initform "gdl")))
(defclass asdf::gendl (asdf::cl-source-file) ((type :initform "gendl")))
......
"( #+(or ccl sbcl allegro) :zaserve #-(or ccl sbcl allegro) :paserve :cl-who :yason :glisp)"
"(#-allegro :cl-html-parse #+(or ccl sbcl allegro) :zaserve #-(or ccl sbcl allegro) :paserve :cl-who :yason :glisp )"
......@@ -5,7 +5,7 @@
"Dave Cooper, Genworks International" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20181023" :depends-on
( #+(or ccl sbcl allegro) :zaserve #-(or ccl sbcl allegro) :paserve :cl-who :yason :glisp)
(#-allegro :cl-html-parse #+(or ccl sbcl allegro) :zaserve #-(or ccl sbcl allegro) :paserve :cl-who :yason :glisp)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-unicode :defsystem-depends-on #+asdf-unicode ()
#+asdf-encodings :encoding #+asdf-encodings :utf-8
......
......@@ -420,12 +420,12 @@ being generated dynamically.
:function #'(lambda(req ent)
(let ((*req* req) (*ent* ent)
(object (first (gethash key *instance-hash-table*))))
(with-http-response (req ent)
(with-http-response (req ent :response *response-found*)
(setf (reply-header-slot-value req :location) (format nil "~a" (the-object object url)))
(setf (reply-header-slot-value req :cache-control) "no-cache")
(setf (reply-header-slot-value req :pragma) "no-cache")
(with-http-body (req ent)
(the-object object write-html-sheet))))))))
(with-http-body (req ent))
))))))
......
This diff is collapsed.
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