mirror of
https://github.com/PDP-10/its.git
synced 2026-03-23 09:19:24 +00:00
19 lines
581 B
Groff
Executable File
19 lines
581 B
Groff
Executable File
(comment) ;magic
|
|
|
|
;;; File hacking if on TOPS-20
|
|
(cond ((status feature TOPS-20)
|
|
(putprop 'teach '(ps kmp/.teach) 'ppn)))
|
|
|
|
(let ((f (open '((teach) global))))
|
|
;;stop reading this file (save disk channels)
|
|
;; get list of global symbols from file
|
|
(load (get 'format 'autoload))
|
|
(read f) ;intern those symbols
|
|
(close f)
|
|
(do ((i 0 (1+ i))) ((= i 128.)) (ascii i)) ;intern all chars
|
|
(let ((obarray (*array nil 'obarray obarray))) ;copy of system obarray
|
|
(putprop 'obarray obarray 'saved-obarray)
|
|
(setq gc-overflow nil)
|
|
(load '((teach) teach))
|
|
'*))
|