From b2a225eb12a52623235dacda835dfcde094c1a21 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Fri, 13 Dec 2002 09:16:13 +0000 Subject: [PATCH] r3618: *** empty log message *** --- classes.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/classes.lisp b/classes.lisp index 87c058a..abf07fe 100644 --- a/classes.lisp +++ b/classes.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Apr 2000 ;;;; -;;;; $Id: classes.lisp,v 1.24 2002/12/13 07:34:20 kevin Exp $ +;;;; $Id: classes.lisp,v 1.25 2002/12/13 09:16:13 kevin Exp $ ;;;; ;;;; This file, part of UMLisp, is ;;;; Copyright (c) 2000-2002 by Kevin M. Rosenberg, M.D. @@ -536,10 +536,10 @@ (multiple-value-bind (is-english is-term) (english-term-p obj) (or (not is-term) is-english))) -(defun print-umlsclass (obj &key (os *standard-output*) (category :compact-text) +(defun print-umlsclass (obj &key (stream *standard-output*) (category :compact-text) (file-wrapper t) (english-only nil) (subobjects nil) (refvars nil)) - (view obj :stream os :category category :subobjects subobjects + (view obj :stream stream :category category :subobjects subobjects :file-wrapper file-wrapper :filter (if english-only nil #'english-term-filter) :refvars refvars)) -- 2.34.1