1 ;;;
 2 ;;; backquote.incl.lisp - BSG 10/9/79
 3 ;;; Loads lisp_backquote_ into either the compiler or interpreter
 4 ;;; environment.
 5 ;;;
 6 ;;; Modified 10/30/82 by Richard Lamson to use eval-when and
 7 ;;;                                        (status feature backquote)
 8 ;;;
 9 (eval-when (eval compile)
10   (or (status feature backquote)
11       (load (catenate (car (namelist (truename infile))) ">lisp_backquote_"))))