1
2
3
4
5
6
7
8
9
10
11
12
13
|
# $Id$
# prints $$ to standard output
define v
call rep_print_val(Fstdout_file(), $)
call rep_stream_putc(Fstdout_file(), '\n')
end
# prints the lisp backtrace
define lbt
call Fbacktrace(Fstdout_file())
call rep_stream_putc(Fstdout_file(), '\n')
end
|