From f512726e08162293389facaf432d167437ae56b3 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Sun, 11 May 2003 22:10:05 +0000 Subject: [PATCH] r4902: *** empty log message *** --- data-structures.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/data-structures.lisp b/data-structures.lisp index dfa2845..173d453 100644 --- a/data-structures.lisp +++ b/data-structures.lisp @@ -7,7 +7,7 @@ ;;;; Author: Kevin M. Rosenberg ;;;; Date Started: Apr 2000 ;;;; -;;;; $Id: data-structures.lisp,v 1.10 2003/05/07 21:57:06 kevin Exp $ +;;;; $Id: data-structures.lisp,v 1.11 2003/05/11 22:10:05 kevin Exp $ ;;;; ;;;; This file, part of UMLisp, is ;;;; Copyright (c) 2000-2002 by Kevin M. Rosenberg, M.D. @@ -91,11 +91,11 @@ (defmethod print-object ((obj ufile) (s stream)) - (print-unreadable-object (obj s :type t :identity t) + (print-unreadable-object (obj s :type t) (format s "~A" (fil obj)))) (defmethod print-object ((obj ucol) (s stream)) - (print-unreadable-object (obj s :type t :identity t) + (print-unreadable-object (obj s :type t) (format s "~A" (col obj)))) -- 2.34.1