Author: hhubner Date: 2006-02-19 12:51:45 -0600 (Sun, 19 Feb 2006) New Revision: 1861
Modified: branches/xml-class-rework/bknr/src/web/templates.lisp Log: Boy, _this_ is hard on a Sunday evening.
Modified: branches/xml-class-rework/bknr/src/web/templates.lisp =================================================================== --- branches/xml-class-rework/bknr/src/web/templates.lisp 2006-02-19 18:50:29 UTC (rev 1860) +++ branches/xml-class-rework/bknr/src/web/templates.lisp 2006-02-19 18:51:45 UTC (rev 1861) @@ -14,7 +14,7 @@ (eval-when (:load-toplevel :execute) (let ((env-catalog (assoc :xmlcatalog ext:*environment-list*))) (when env-catalog - (pushnew *template-dtd-catalog* env-catalog :test #'equal)))) + (pushnew *template-dtd-catalog* (cdr env-catalog) :test #'equal))))
;; user-error is supposed to be raised when an error is provoced by ;; the user (i.e. by supplying invalid form data).