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