1 ; FP interpreter/compiler 2 ; Copyright (c) 1982 Scott B. Baden 3 ; Berkeley, California 4 ; 5 ; Copyright (c) 1982 Regents of the University of California. 6 ; All rights reserved. The Berkeley software License Agreement 7 ; specifies the terms and conditions for redistribution. 8 ; 9 (setq SCCS-specials.l "@(#)specials.l 5.1 (Berkeley) 05/31/85") 10 11 (declare (special 12 DynTraceFlg Measures TracedFns debug traceport level 13 piport poport ptport readtable infile outfile newreadtable 14 char_num fn_name in_def 15 rsrvd e_rsrvd usr_fn_name in_buf char_set 16 num_delim$ outfile builtins wslen stk tkn timeIt)) 17 18 (declare (macros t)) 19 20 (eval-when (compile eval load) 21 (or (get 'fpMacs 'loaded) (load 'fpMacs))) 22