From 5aca51fd7425f05f0b68249b92dd28d6225a2c71 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Tue, 26 Aug 2003 04:46:16 +0000 Subject: [PATCH] r5558: *** empty log message *** --- parse-common.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/parse-common.lisp b/parse-common.lisp index 06ad178..7761e5c 100644 --- a/parse-common.lisp +++ b/parse-common.lisp @@ -7,7 +7,7 @@ ;;;; Author: Kevin M. Rosenberg ;;;; Date Started: Apr 2000 ;;;; -;;;; $Id: parse-common.lisp,v 1.15 2003/06/10 22:30:16 kevin Exp $ +;;;; $Id: parse-common.lisp,v 1.16 2003/08/26 04:46:16 kevin Exp $ ;;;; ;;;; This file, part of UMLisp, is ;;;; Copyright (c) 2000-2003 by Kevin M. Rosenberg, M.D. @@ -72,7 +72,7 @@ Currently, these are the LEX and NET files." (destructuring-bind (filename fields-max fields-av) length-list (let ((file (find-ufile filename))) (unless file - (error "Can't find ~A filename in ufiles")) + (error "Can't find ~A filename in ufiles" filename)) (unless (= (length fields-max) (length (fields file))) (error "Number of file fields ~A not equal to field count in ufile ~S" -- 2.34.1