gistfile1.txt

(if (member "--no-linedit" sb-ext:*posix-argv* :test 'equal)
      (setf sb-ext:*posix-argv* 
                  (remove "--no-linedit" sb-ext:*posix-argv* :test 'equal))
          (when (interactive-stream-p *terminal-io*)
                  (require :sb-aclrepl)
                        (require :linedit)
                              (funcall (intern "INSTALL-REPL" :linedit) :wrap-current t)))

 (sb-alien:alien-funcall
       (sb-alien:extern-alien "disable_lossage_handler" (function sb-alien:void)))