From 19cb24908d2ba2faec3afbdd180eed0c7d7d8515 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Thu, 12 Jun 2003 16:37:44 +0000 Subject: [PATCH] r5113: *** empty log message *** --- views.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/views.lisp b/views.lisp index 7de59fe..607e0d2 100644 --- a/views.lisp +++ b/views.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Apr 2000 ;;;; -;;;; $Id: views.lisp,v 1.53 2003/06/12 14:46:19 kevin Exp $ +;;;; $Id: views.lisp,v 1.54 2003/06/12 16:37:44 kevin Exp $ ;;;; ;;;; This file is Copyright (c) 2000-2003 by Kevin M. Rosenberg ;;;; ************************************************************************* @@ -529,10 +529,10 @@ (write-string (link-ampersand view) s) (write-simple (car var) s) (write-char #\= s) - (write-simple (cdr var) s)) - (write-char #\" s)) + (write-simple (cdr var) s))) (link-printer - (funcall link-printer link-page fieldfunc fieldvalue refvars s)))))) + (funcall link-printer link-page fieldfunc fieldvalue refvars s)))) + (write-char #\" s))) (defun make-link-end (obj view fieldname) (declare (ignore obj fieldname)) -- 2.34.1