1 ;; -*- Mode: Lisp; Lowercase: True -*-
2 
3 ;; setf.incl.lisp - Loads lisp_setf_ into either the compiler or
4 ;; 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_"))))