Author: hhubner Date: 2006-02-19 12:53:22 -0600 (Sun, 19 Feb 2006) New Revision: 1862
Modified: branches/xml-class-rework/bknr/src/web/templates.lisp Log: (...)
Modified: branches/xml-class-rework/bknr/src/web/templates.lisp =================================================================== --- branches/xml-class-rework/bknr/src/web/templates.lisp 2006-02-19 18:51:45 UTC (rev 1861) +++ branches/xml-class-rework/bknr/src/web/templates.lisp 2006-02-19 18:53:22 UTC (rev 1862) @@ -14,7 +14,7 @@ (eval-when (:load-toplevel :execute) (let ((env-catalog (assoc :xmlcatalog ext:*environment-list*))) (when env-catalog - (pushnew *template-dtd-catalog* (cdr env-catalog) :test #'equal)))) + (pushnew (cdr env-catalog) *template-dtd-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).