1 ;; -*- Mode: Lisp; Lowercase: True -*-
 2 
 3 ;; defmacro.incl.lisp - Loads lisp_backquote_, lisp_destructuring_let_,
 4 ;; and lisp_defmacro_ into either the compiler or interpreter environment.
 5 ;; Written:  October 1982 by Carl Hoffman
 6 
 7 ;; Defmacro needs destructuring_let to run.
 8 ;; It can run without backquote, but would be useless.
 9 
10 (eval-when (eval compile)
11   (or (status feature backquote)
12       (load (catenate (car (namelist (truename infile))) ">lisp_backquote_")))
13   (or (status feature destructuring_let)
14       (load (catenate (car (namelist (truename infile))) ">lisp_destructuring_let_")))
15   (or (status feature defmacro)
16       (load (catenate (car (namelist (truename infile))) ">lisp_defmacro_"))))
17 
18 ;; This is necessary for (defprop a b macro) forms and defuns produced
19 ;; by defmacro to appear in the object segment.  Let the default be
20 ;; the right thing for naive users.
21 (declare (macros t))