1 ;; -*- Mode: Lisp; Lowercase: True -*-
 2 
 3 ;; format.incl.lisp - Loads lisp_format_ into the interpreter environment.
 4 ;; Written:  October 1982 by Carl Hoffman
 5 
 6 (eval-when (eval compile)
 7   (defun --load-myself-- macro (module)
 8     (setq module (cadr module))
 9     (list 'or
10           (list 'status 'feature module)
11           (list 'load (catenate (car (namelist (truename infile)))
12                                 ">lisp_" module "_")))))
13 
14 (--load-myself-- format)
15 
16 (declare (*lexpr format ferror))