r9592: ready for boa

[hyperobject.git] / views.lisp

diff --git a/views.lisp b/views.lisp
index 820556800fce09101bc6ee51165f71d41a41f10d..f6b811ae0ae8913492498c9001d91fa0e8a338de 100644 (file)
--- a/views.lisp
+++ b/views.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;
-;;;; $Id: views.lisp,v 1.62 2003/07/19 20:32:48 kevin Exp $
+;;;; $Id$
 ;;;;
 ;;;; This file is Copyright (c) 2000-2003 by Kevin M. Rosenberg
 ;;;; *************************************************************************
@@ -89,7 +89,7 @@
                  :accessor link-href-end)
    (link-ampersand :type (or string null) :initform nil :initarg :link-ampersand
                   :accessor link-ampersand))
-  (:default-initargs :link-page "lookup-func1")
+  (:default-initargs :link-page "meta-search.html")
   (:documentation "View class for a hyperobject"))
 
 
@@ -218,7 +218,7 @@
                       (funcall formatter slot-data)
                       slot-data)))
     (if cdata
-       (write-xml-cdata fmt-data strm)
+       (write-cdata fmt-data strm)
        (write-simple fmt-data strm))))
 
 (defun ppfc-html (title name type formatter cdata print-func)