source: release/1.2/source/lisp-kernel/lispdcmd.c @ 10555

Last change on this file since 10555 was 137, checked in by gb, 16 years ago

New & improved debugger.

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 903 bytes
Line 
1/*
2   Copyright (C) 1994-2001 Digitool, Inc
3   This file is part of OpenMCL. 
4
5   OpenMCL is licensed under the terms of the Lisp Lesser GNU Public
6   License , known as the LLGPL and distributed with OpenMCL as the
7   file "LICENSE".  The LLGPL consists of a preamble and the LGPL,
8   which is distributed with OpenMCL as the file "LGPL".  Where these
9   conflict, the preamble takes precedence. 
10
11   OpenMCL is referenced in the preamble as the "LIBRARY."
12
13   The LLGPL is also available online at
14   http://opensource.franz.com/preamble.html
15*/
16
17/*
18  MCL-PPC dcmd utilities.
19*/
20
21#include "lispdcmd.h"
22
23
24
25
26void
27display_buffer(char *buf)
28{
29  fprintf(stderr, "%s\n", buf);
30}
31
32int
33Dprintf(const char *format, ...)
34{
35  char buf[512];
36  va_list args;
37  int res;
38
39  va_start(args, format);
40  res = vsnprintf(buf, sizeof(buf), format, args);
41  if (res >= 0) {
42    display_buffer(buf);
43  }
44  return res;
45}
46
Note: See TracBrowser for help on using the repository browser.