1 (setq SCCS-specials.l "@(#)specials.l 1.1 04/27/83") 2 ; FP interpreter/compiler 3 ; Copyright (c) 1982 Scott B. Baden 4 ; Berkeley, California 5 6 (declare (special 7 DynTraceFlg Measures TracedFns debug traceport level 8 piport poport ptport readtable infile outfile newreadtable 9 char_num fn_name in_def 10 rsrvd e_rsrvd usr_fn_name in_buf char_set 11 num_delim$ outfile builtins wslen stk tkn timeIt)) 12 13 (declare (macros t)) 14 15 (eval-when (compile eval load) 16 (or (get 'fpMacs 'loaded) (load 'fpMacs))) 17