(defun convert-mocklisp-buffer nil "\ Convert buffer of Mocklisp code to real Lisp that GNU Emacs can run." (interactive) (byte-code " !!\"!eb eb͏ebcc eb!" [nil emacs-lisp-mode set-syntax-table copy-sequence syntax-table modify-syntax-entry 124 "w" message "Converting mocklisp (ugh!)..." fix-mlisp-syntax ignore (byte-code "* `p! <% @=?% c b!c)* " [t opt form read defun ")) (ml-foo) " skip-chars-forward " " "(defun (ml-foo "] 4) ((end-of-file (byte-code "" [nil] 1))) ";;; GNU Emacs code converted from Mocklisp " "(require 'mlsupport) " fix-mlisp-symbols "Converting mocklisp...done"] 10)) (defun fix-mlisp-syntax nil (byte-code "#E hU !!A !cgU( gU1 !9 !9 c!! " [nil t re-search-forward "['\"]" 34 forward-char -1 forward-sexp 1 delete-char "?" 92 94 looking-at "[^a-zA-Z]"] 10)) (defun fix-mlisp-symbols nil (byte-code "!m?[ gU gU !W gU'