1 ;; -*- Mode: Lisp; Lowercase: True -*-
 2 
 3 ;; other_other.incl.lisp - Loads lisp_setf_ and lisp_other_other_ into either
 4 ;; the compiler or interpreter environment.
 5 ;; Written:  October 1982 by Carl Hoffman
 6 
 7 (eval-when (eval compile)
 8   (or (status feature setf)
 9       (load (catenate (car (namelist (truename infile))) ">lisp_setf_")))
10   (or (status feature other_other)
11       (load (catenate (car (namelist (truename infile))) ">lisp_other_other_"))))