source: trunk/ccl/lisp-kernel/plprint.c @ 6

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

Initial revision

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 808 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#include "lispdcmd.h"
18
19
20void
21plprint(ExceptionInformation *xp, LispObj obj)
22{
23  if (lisp_nil == (LispObj) NULL) {
24    fprintf(stderr,"can't find lisp NIL; lisp process not active process ?\n");
25  } else {
26    Dprintf("\n%s", print_lisp_object(obj));
27  }
28}
29
Note: See TracBrowser for help on using the repository browser.