1 ;; -*- Mode: Lisp; Lowercase: True -*-
 2 
 3 ;; defun.incl.lisp - Loads lisp_destructuring_let_, lisp_defmacro_,
 4 ;; and lisp_defun_ into either the compiler or interpreter environment.
 5 ;; Written:  October 1982 by Carl Hoffman
 6 
 7 ;; defun needs destructuring_let and defmacro to run.  The code produced contains
 8 ;; let forms, and an internal routine in defmacro is called.
 9 
10 (eval-when (eval compile)
11   (or (status feature destructuring_let)
12       (load (catenate (car (namelist (truename infile))) ">lisp_destructuring_let_")))
13   (or (status feature defmacro)
14       (load (catenate (car (namelist (truename infile))) ">lisp_defmacro_")))
15   (or (status feature defun)
16       (load (catenate (car (namelist (truename infile))) ">lisp_defun_"))))