(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))
    '*))