1 ;; -*- Mode: Lisp; Lowercase: True -*-
 2 
 3 ;; runtime.incl.lisp - Loads lisp_runtime_ into the interpreter environment.
 4 ;; Written:  October 1982 by Carl Hoffman
 5 
 6 (eval-when (eval compile)
 7   (defun --load-myself-- macro (module)
 8     (setq module (cadr module))
 9     (list 'or
10           (list 'status 'feature module)
11           (list 'load (catenate (car (namelist (truename infile)))
12                                 ">lisp_" module "_")))))
13 
14 (--load-myself-- runtime)
15 
16 (declare (*expr fboundp fmakunbound fsymeval fset
17                 ldb dpb
18                 firstn butlast nbutlast
19                 mem find-position-in-list ass rassq rassoc
20                 circular-list-last)
21          (*lexpr make-list rem remq remove symbolconc del))